X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86%2Fcell.lisp;h=efb56a5fd6fa71815249dc3597ec6fab295699cc;hb=c5159b9f0da46023e65b65a82c911d8d9816dc3e;hp=7b1df1c90cbcb0c3c8ef630952dd43480e548b2e;hpb=d76c81b0ca4dcfc99f0cd805f5c20493fa80b2b6;p=sbcl.git

diff --git a/src/compiler/x86/cell.lisp b/src/compiler/x86/cell.lisp
index 7b1df1c..efb56a5 100644
--- a/src/compiler/x86/cell.lisp
+++ b/src/compiler/x86/cell.lisp
@@ -46,7 +46,7 @@
 		     (make-ea :dword :base object
 			      :disp (- (* 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 offset lowtag))))