Permalink
Browse files

PPC, SPARC cross-type build fix

Thanks to Christophe Rhodes.
  • Loading branch information...
1 parent d49ff1b commit 3e77276ea06f6b0f46f7def5e018b66369e52107 @lichtblau lichtblau committed Oct 5, 2012
Showing with 6 additions and 0 deletions.
  1. +6 −0 src/code/cross-type.lisp
View
6 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

0 comments on commit 3e77276

Please sign in to comment.