X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fppc%2Fchar.lisp;h=8a4e0638818ddcf23db65867e5a0a0308ac6f9f8;hb=4e7866afc56e4eec4e33dc2d61bd4f0aeed72cfd;hp=af3355f315d0aafec846fa5637135a2692b1e3de;hpb=94023958a1013881e38745f443240f905c1b4a0b;p=sbcl.git

diff --git a/src/compiler/ppc/char.lisp b/src/compiler/ppc/char.lisp
index af3355f..8a4e063 100644
--- a/src/compiler/ppc/char.lisp
+++ b/src/compiler/ppc/char.lisp
@@ -119,13 +119,9 @@
   (:translate char>)
   (:variant :gt :le))
 
-#!-sb-unicode (progn
-;; We can't use these when unicode is enabled because cmplwi has
-;; an immediate field far smaller than the width of some unicode
-;; code points.  -- AB, 2010-Apr-24.
 (define-vop (character-compare/c)
   (:args (x :scs (character-reg)))
-  (:arg-types character (:constant character))
+  (:arg-types character (:constant (satisfies inlinable-character-constant-p)))
   (:conditional)
   (:info target not-p y)
   (:policy :fast-safe)
@@ -146,4 +142,3 @@
 (define-vop (fast-char>/character/c character-compare/c)
   (:translate char>)
   (:variant :gt :le))
-) ;; Not sb-unicode