X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fbit-bash.lisp;h=23f58ec475954e5e310040590ff3eb7e104de3e9;hb=bb93c9001110f38e28af43012e2c4bdda871b630;hp=93124063d4e6c7182ca1a1dd0b1feab1201e3de8;hpb=820cc1dc03ecac1eda3d817ae2833ae8939a2fd1;p=sbcl.git

diff --git a/src/code/bit-bash.lisp b/src/code/bit-bash.lisp
index 9312406..23f58ec 100644
--- a/src/code/bit-bash.lisp
+++ b/src/code/bit-bash.lisp
@@ -17,7 +17,7 @@
 (defconstant unit-bits n-word-bits)
 
 ;;; the maximum number of bits that can be dealt with in a single call
-(defconstant max-bits (ash most-positive-fixnum -2))
+(defconstant max-bits (ash sb!xc:most-positive-fixnum -2))
 
 (deftype unit ()
   `(unsigned-byte ,unit-bits))