(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)