X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fsparc%2Fchar.lisp;h=900342a8ef53a9aea90451023e857a8e5990add2;hb=b1357926a4aece632bc81d5422d07ae62693ffcf;hp=bce3b4166ee2da800b7ee69782bc35da02b01ccf;hpb=68fd2d2dd6f265669a8957accd8a33e62786a97e;p=sbcl.git

diff --git a/src/compiler/sparc/char.lisp b/src/compiler/sparc/char.lisp
index bce3b41..900342a 100644
--- a/src/compiler/sparc/char.lisp
+++ b/src/compiler/sparc/char.lisp
@@ -90,7 +90,7 @@
   (:results (res :scs (any-reg)))
   (:result-types positive-fixnum)
   (:generator 1
-    (inst sll res ch fixnum-tag-bits)))
+    (inst sll res ch n-fixnum-tag-bits)))
 
 (define-vop (code-char)
   (:translate code-char)
@@ -100,7 +100,7 @@
   (:results (res :scs (base-char-reg)))
   (:result-types base-char)
   (:generator 1
-    (inst srl res code fixnum-tag-bits)))
+    (inst srl res code n-fixnum-tag-bits)))
 
 
 ;;; Comparison of base-chars.