X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fsparc%2Fchar.lisp;h=2eb49a3e3768516ec00c3dd5110092ef6cbfd1af;hb=69e6aef5e6fb3bd682c7a2cbf774034d2ea58ee8;hp=b3c6408810f4ee8ae35ab68988e8ad98f7071507;hpb=52cfe54802db8736f1f4e2b67764c43bba9b78b3;p=sbcl.git

diff --git a/src/compiler/sparc/char.lisp b/src/compiler/sparc/char.lisp
index b3c6408..2eb49a3 100644
--- a/src/compiler/sparc/char.lisp
+++ b/src/compiler/sparc/char.lisp
@@ -132,7 +132,9 @@
 
 (define-vop (character-compare/c)
   (:args (x :scs (character-reg)))
-  (:arg-types character (:constant character))
+  (:arg-types character (:constant
+                         #+sb-xc-host base-char
+                         #-sb-xc-host (character-set ((0 . 4095)))))
   (:conditional)
   (:info target not-p y)
   (:policy :fast-safe)