X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fppc%2Fchar.lisp;h=8a4e0638818ddcf23db65867e5a0a0308ac6f9f8;hb=edb7acf8d242c0398ec33924e21c85dc54bc768d;hp=92ea7b3e84c52af8cecf1904f740cabce2081c8f;hpb=7deecae2d959173eda6a153d490c752c32050a9e;p=sbcl.git

diff --git a/src/compiler/ppc/char.lisp b/src/compiler/ppc/char.lisp
index 92ea7b3..8a4e063 100644
--- a/src/compiler/ppc/char.lisp
+++ b/src/compiler/ppc/char.lisp
@@ -121,7 +121,7 @@
 
 (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)