0.7.1.32:

[sbcl.git] / src / compiler / srctran.lisp

diff --git a/src/compiler/srctran.lisp b/src/compiler/srctran.lisp
index 9855e46..db2a385 100644 (file)
--- a/src/compiler/srctran.lisp
+++ b/src/compiler/srctran.lisp
@@ -1354,14 +1354,14 @@
   (flet ((ash-outer (n s)
           (when (and (fixnump s)
                      (<= s 64)
-                     (> s sb!vm:*target-most-negative-fixnum*))
+                     (> s sb!xc:most-negative-fixnum))
             (ash n s)))
          ;; KLUDGE: The bare 64's here should be related to
          ;; symbolic machine word size values somehow.
 
         (ash-inner (n s)
           (if (and (fixnump s)
-                   (> s sb!vm:*target-most-negative-fixnum*))
+                   (> s sb!xc:most-negative-fixnum))
              (ash n (min s 64))
              (if (minusp n) -1 0))))
     (or (and (csubtypep n-type (specifier-type 'integer))