0.7.1.32:

[sbcl.git] / src / code / late-type.lisp

diff --git a/src/code/late-type.lisp b/src/code/late-type.lisp
index 6ffd5c9..3005a9b 100644 (file)
--- a/src/code/late-type.lisp
+++ b/src/code/late-type.lisp
@@ -1118,8 +1118,8 @@
                                  `(unsigned-byte ,high-length))
                                 (t
                                  `(mod ,(1+ high)))))
-                         ((and (= low sb!vm:*target-most-negative-fixnum*)
-                               (= high sb!vm:*target-most-positive-fixnum*))
+                         ((and (= low sb!xc:most-negative-fixnum)
+                               (= high sb!xc:most-positive-fixnum))
                           'fixnum)
                          ((and (= low (lognot high))
                                (= high-count high-length)