0.9.1.36:

[sbcl.git] / src / code / bit-bash.lisp

diff --git a/src/code/bit-bash.lisp b/src/code/bit-bash.lisp
index 9a6853d..a0c8319 100644 (file)
--- a/src/code/bit-bash.lisp
+++ b/src/code/bit-bash.lisp
@@ -132,7 +132,7 @@
   (let* ((bytes-per-word (/ n-word-bits bitsize))
          (byte-offset `(integer 0 (,bytes-per-word)))
          (byte-count `(integer 1 (,bytes-per-word)))
-         (max-bytes (ash most-positive-fixnum
+         (max-bytes (ash sb!xc:most-positive-fixnum
                          ;; FIXME: this reflects code contained in the
                          ;; original bit-bash.lisp, but seems very
                          ;; nonsensical.  Why shouldn't we be able to