X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Fx86%2Fpred.lisp;h=1aee78352d9a652961c821103b5ade70b975bdfa;hb=d604a358d8e5eb5587989e0a4f1d31dbe6ac5ffe;hp=8a43d152ad7ccb122ffcc85cb5d1e759adc894cd;hpb=adf0d51d2bde8b723276bacf94641df9aa5ae561;p=sbcl.git

diff --git a/src/compiler/x86/pred.lisp b/src/compiler/x86/pred.lisp
index 8a43d15..1aee783 100644
--- a/src/compiler/x86/pred.lisp
+++ b/src/compiler/x86/pred.lisp
@@ -10,9 +10,6 @@
 ;;;; files for more information.
 
 (in-package "SB!VM")
-
-(file-comment
- "$Header$")
 
 ;;;; the branch VOP
 
@@ -52,8 +49,8 @@
 	  (symbol
 	   (inst cmp x (+ nil-value (static-symbol-offset val))))
 	  (character
-	   (inst cmp x (logior (ash (char-code val) type-bits)
-			       base-char-type))))))
+	   (inst cmp x (logior (ash (char-code val) n-widetag-bits)
+			       character-widetag))))))
      ((sc-is x immediate) ; and y not immediate
       ;; Swap the order to fit the compare instruction.
       (let ((val (tn-value x)))
@@ -65,8 +62,8 @@
 	  (symbol
 	   (inst cmp y (+ nil-value (static-symbol-offset val))))
 	  (character
-	   (inst cmp y (logior (ash (char-code val) type-bits)
-			       base-char-type))))))
+	   (inst cmp y (logior (ash (char-code val) n-widetag-bits)
+			       character-widetag))))))
       (t
        (inst cmp x y)))