From: David Lichteblau <david@lichteblau.com>
Date: Fri, 5 Oct 2012 13:21:44 +0000 (+0200)
Subject: PPC, SPARC cross-type build fix
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=3e77276ea06f6b0f46f7def5e018b66369e52107;p=sbcl.git

PPC, SPARC cross-type build fix

Thanks to Christophe Rhodes.
---

diff --git a/src/code/cross-type.lisp b/src/code/cross-type.lisp
index 1ffb2c2..72d5092 100644
--- a/src/code/cross-type.lisp
+++ b/src/code/cross-type.lisp
@@ -289,6 +289,12 @@
                  ;; trivial.
                  (and (every/type #'cross-typep host-object rest))
                  (or  (any/type   #'cross-typep host-object rest))
+                 (not
+                  (multiple-value-bind (value surep)
+                      (cross-typep host-object (car rest))
+                    (if surep
+                        (values (not value) t)
+                        (warn-and-give-up))))
                  ;; If we want to work with the KEYWORD type, we need
                  ;; to grok (SATISFIES KEYWORDP).
                  (satisfies