Fix ticket:76

Missed one place in DO-UNARY-BYTE-BASH to adjust the call to END-MASK
to use a bit offset instead of a byte offset.  This affects anything
that was using DO-UNARY-BYTE-BASH, including REPLACE.

diff --git a/src/code/bit-bash.lisp b/src/code/bit-bash.lisp
index a9bb688..ba2706a 100644 (file)
--- a/src/code/bit-bash.lisp
+++ b/src/code/bit-bash.lisp
@@ -562,7 +562,7 @@
                (unless (zerop dst-byte-offset)
                  ;; We are only writing part of the first word, so mask off the
                  ;; bits we want to preserve.
-                 (let ((mask (end-mask (- dst-byte-offset)))
+                 (let ((mask (end-mask (* vm:byte-bits (- dst-byte-offset))))
                        (orig (funcall dst-ref-fn dst dst-word-offset))
                        (value (funcall src-ref-fn src src-word-offset)))
                    (declare (type unit mask orig value))