X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fbit-bash.lisp;h=fe2fa6ec43a098c5e58e872507e4f75c30b4020d;hb=545fa4548b327804cf78afe38a2ecd94ced86162;hp=589968bdc9d70f3a5a1b69eb82fecfd0b0fa3ce4;hpb=3c65762b927af861c9c8bc416e4cbac9a14ec0c3;p=sbcl.git

diff --git a/src/code/bit-bash.lisp b/src/code/bit-bash.lisp
index 589968b..fe2fa6e 100644
--- a/src/code/bit-bash.lisp
+++ b/src/code/bit-bash.lisp
@@ -14,7 +14,7 @@
 ;;;; constants and types
 
 ;;; the number of bits to process at a time
-(defconstant unit-bits sb!vm:word-bits)
+(defconstant unit-bits sb!vm: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))
@@ -512,7 +512,7 @@
   ;; %BYTE-BLIT (and correspondingly rename the corresponding VOP) and
   ;; replace the DST-END argument with an N-BYTES argument?
   (copy-to-system-area bv
-		       (* sb!vm:vector-data-offset sb!vm:word-bits)
+		       (* sb!vm:vector-data-offset sb!vm:n-word-bits)
 		       sap
 		       offset
 		       (* (length bv) sb!vm:byte-bits)))