X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fbit-util.lisp;h=10d540c553028470f6653292b7071e90033cae34;hb=16a6592367eec7c5e9da668ec42fd260e7705b0c;hp=13cfb7ef08877e5a1b4fe64f7a282c76024a152f;hpb=cea4896b2482b7b2b429c1631d774b4cfbc0efba;p=sbcl.git

diff --git a/src/compiler/bit-util.lisp b/src/compiler/bit-util.lisp
index 13cfb7e..10d540c 100644
--- a/src/compiler/bit-util.lisp
+++ b/src/compiler/bit-util.lisp
@@ -25,8 +25,8 @@
 ;;; less-portable implementation of CLEAR-BIT-VECTOR:
 ;;;  (do ((i sb!vm:vector-data-offset (1+ i))
 ;;;       (end (+ sb!vm:vector-data-offset
-;;;	       (ash (+ (length vec) (1- sb!vm:word-bits))
-;;;		    (- (1- (integer-length sb!vm:word-bits)))))))
+;;;	       (ash (+ (length vec) (1- sb!vm:n-word-bits))
+;;;		    (- (1- (integer-length sb!vm:n-word-bits)))))))
 ;;;      ((= i end) vec)
 ;;;    (setf (sb!kernel:%raw-bits vec i) 0)))
 ;;; We could use this in the target SBCL if the new version turns out to be a