X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fbit-util.lisp;h=0bc749839bfa8dca62547f2c6ea9a921e464caa6;hb=3b6e07c0fcb050fa86c7c42db33f49107e3097e6;hp=f927c5ec81e0c75430e9d942aabf0167bd94f1d5;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/src/compiler/bit-util.lisp b/src/compiler/bit-util.lisp
index f927c5e..0bc7498 100644
--- a/src/compiler/bit-util.lisp
+++ b/src/compiler/bit-util.lisp
@@ -12,12 +12,9 @@
 
 (in-package "SB!C")
 
-(file-comment
-  "$Header$")
-
 #!-sb-fluid
 (declaim (inline clear-bit-vector set-bit-vector bit-vector-replace
-		 bit-vector-copy))
+                 bit-vector-copy))
 
 ;;; Clear a SIMPLE-BIT-VECTOR to zeros.
 (defun clear-bit-vector (vec)
@@ -28,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