From 5d9de0aba6394025970571dec9ef1b5ab64cbbf0 Mon Sep 17 00:00:00 2001 From: Paul Khuong Date: Sun, 30 Oct 2011 11:34:33 -0400 Subject: [PATCH] Unbreak the build on SPARC Broken in b2d132a93 (last commit). The cross-compiler can be a tad paranoid. --- src/compiler/sparc/char.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/compiler/sparc/char.lisp b/src/compiler/sparc/char.lisp index 1f6a146..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-set ((0 . 4095))))) + (: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) -- 1.7.10.4