X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86%2Fmemory.lisp;h=0968a52edb9769bf37f06f485c18c7acdf3bb4cd;hb=77d94d36bcfd3d5eea73ad51e6ee621a8938f995;hp=ca8c2e28b0dc9328a3f117620e6b7c3d206e2640;hpb=29a9ccc860532b32c566aec095f570e999a9c52c;p=sbcl.git

diff --git a/src/compiler/x86/memory.lisp b/src/compiler/x86/memory.lisp
index ca8c2e2..0968a52 100644
--- 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))))