master: Use correct test for a slot that can hold fixnum
snuglas via Sbcl-commits <[email protected]>
| Newsgroups | gmane.lisp.steel-bank.cvs |
|---|---|
| Message-ID | <[email protected]> |
The branch "master" has been updated in SBCL:
via 1b0d28f480289a0f4ba656c17853d9539bd26f8f (commit)
from ac330720f3dd9bac343ea5789848c502da46ca02 (commit)
- Log -----------------------------------------------------------------
commit 1b0d28f480289a0f4ba656c17853d9539bd26f8f
Author: Douglas Katzman <[email protected]>
Date: Thu Aug 6 11:41:54 2026 -0400
Use correct test for a slot that can hold fixnum
---
src/code/setf-funs.lisp | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/code/setf-funs.lisp b/src/code/setf-funs.lisp
index 17a5b3071..6f28196b9 100644
--- a/src/code/setf-funs.lisp
+++ b/src/code/setf-funs.lisp
@@ -97,7 +97,7 @@
(return-from %atomic-exchange
(multiple-value-bind (sc primtype)
(ecase (dsd-raw-type dsd)
- (t (if (eq type 'fixnum)
+ (t (if (subtypep type 'fixnum)
(values 'any-reg 'tagged-num)
(values 'descriptor-reg 't)))
(signed-word (values 'signed-reg 'signed-num))
-----------------------------------------------------------------------
hooks/post-receive
--
SBCL