From: Christophe Rhodes <csr21@cam.ac.uk>
Date: Sun, 30 Mar 2003 13:54:31 +0000 (+0000)
Subject: 0.pre8.17:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=f2775f0e5b50cfad198937e02ed90ee07682e125;p=sbcl.git

0.pre8.17:
	Really actually fix self-build problems
	... paper over a bug in our own FIND-CLASS (SB-PCL::FIND-CLASS
		as was) by reordering conditions in CROSS-TYPEP.  A
		search for a proper fix is ongoing
	Now we can build from ourselves, absolutely definitely.  I've
	tested it.
---

diff --git a/src/code/cross-type.lisp b/src/code/cross-type.lisp
index 228496f..75bb1aa 100644
--- a/src/code/cross-type.lisp
+++ b/src/code/cross-type.lisp
@@ -148,14 +148,14 @@
 	     (typep target-type 'class)
 	     (bug "We don't support CROSS-TYPEP of CLASS type specifiers"))
 	    ((and (symbolp target-type)
-		  (find-class target-type nil)
-		  (subtypep target-type 'sb!kernel::structure!object))
-	     (values (typep host-object target-type) t))
-	    ((and (symbolp target-type)
 		  (find-classoid target-type nil)
 		  (sb!xc:subtypep target-type 'cl:structure-object)
 		  (typep host-object '(or symbol number list character)))
 	     (values nil t))
+	    ((and (symbolp target-type)
+		  (find-class target-type nil)
+		  (subtypep target-type 'sb!kernel::structure!object))
+	     (values (typep host-object target-type) t))
 	    (;; easy cases of arrays and vectors
 	     (target-type-is-in
 	      '(array simple-string simple-vector string vector))
diff --git a/version.lisp-expr b/version.lisp-expr
index e8e4bae..975ce35 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -18,4 +18,4 @@
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
 
-"0.pre8.16"
+"0.pre8.17"