From: Paul Khuong <pvk@pvk.ca>
Date: Sun, 30 Oct 2011 15:34:33 +0000 (-0400)
Subject: Unbreak the build on SPARC
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=5d9de0aba6394025970571dec9ef1b5ab64cbbf0;p=sbcl.git

Unbreak the build on SPARC

Broken in b2d132a93 (last commit).  The cross-compiler can be a tad
paranoid.
---

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)