0.pre7.59:

[sbcl.git] / src / compiler / target-disassem.lisp

diff --git a/src/compiler/target-disassem.lisp b/src/compiler/target-disassem.lisp
index 1b38c05..3b0a14a 100644 (file)
--- a/src/compiler/target-disassem.lisp
+++ b/src/compiler/target-disassem.lisp
@@ -817,7 +817,7 @@
                      (+ (ash word sb!vm:byte-bits) byte)
                      (+ word (ash byte bit-shift))))
            (incf bit-shift sb!vm:byte-bits)))
-       (format stream "#X~V,'0X" (ash sb!vm:word-bits -2) word)))))
+       (format stream "#X~V,'0X" (ash sb!vm:n-word-bits -2) word)))))
 \f
 (defvar *default-dstate-hooks* (list #'lra-hook))