message

[sbcl.git] / src / compiler / x86 / memory.lisp

diff --git a/src/compiler/x86/memory.lisp b/src/compiler/x86/memory.lisp
index ca8c2e2..0968a52 100644 (file)
--- a/src/compiler/x86/memory.lisp
+++ b/src/compiler/x86/memory.lisp
@@ -116,7 +116,7 @@
                    (make-ea :dword :base object
                             :disp (- (* (+ base offset) n-word-bytes) lowtag))
                    (logior (ash (char-code val) n-widetag-bits)
-                           base-char-widetag)))))
+                           character-widetag)))))
         ;; Else, value not immediate.
         (storew value object (+ base offset) lowtag))))