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 (file)
--- 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 (file)
--- 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"