master: Flip order of COND clauses in sset-member

snuglas via Sbcl-commits <[email protected]> Sun, 05 Jul 2026 14:42:34 +0000
Newsgroups gmane.lisp.steel-bank.cvs
Message-ID <[email protected]>
The branch "master" has been updated in SBCL:
       via  c09560decb41b572bcc358e232726f7a37da7c46 (commit)
      from  b3185f38061a03c7350eb605f63e647cc0d0aba3 (commit)

- Log -----------------------------------------------------------------
commit c09560decb41b572bcc358e232726f7a37da7c46
Author: Douglas Katzman <[email protected]>
Date:   Sun Jul 5 14:34:24 2026 +0000

    Flip order of COND clauses in sset-member
    
    Assuming the first probe is a hit, this is better. Otherwise no difference.
---
 src/compiler/sset.lisp | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/src/compiler/sset.lisp b/src/compiler/sset.lisp
index 3e32951b0..bbc08ab2a 100644
--- a/src/compiler/sset.lisp
+++ b/src/compiler/sset.lisp
@@ -146,10 +146,8 @@
         for hash of-type index = (logand mask (sset-hash1 element)) then
           (logand mask (+ hash secondary-hash))
         for current = (aref vector hash)
-        do (cond ((eql current 0)
-                  (return nil))
-                 ((eq current element)
-                  (return t)))))
+        do (cond ((eq current element) (return t))
+                 ((eql current 0) (return nil)))))
 
 (declaim (ftype (sfunction (sset sset) boolean) sset=))
 (defun sset= (set1 set2)

-----------------------------------------------------------------------


hooks/post-receive
-- 
SBCL