#!-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)
;;; 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