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