From 3e77276ea06f6b0f46f7def5e018b66369e52107 Mon Sep 17 00:00:00 2001 From: David Lichteblau Date: Fri, 5 Oct 2012 15:21:44 +0200 Subject: [PATCH] PPC, SPARC cross-type build fix Thanks to Christophe Rhodes. --- src/code/cross-type.lisp | 6 ++++++ 1 file changed, 6 insertions(+) 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 -- 1.7.10.4