0.7.4.42:

	Reopened BUG 140, closing BUG 176 in the process.

diff --git a/NEWS b/NEWS
index 9e38607..e9b978a 100644 (file)
--- a/NEWS
+++ b/NEWS
@@ -1132,8 +1132,6 @@ changes in sbcl-0.7.5 relative to sbcl-0.7.4:
     bootstrapping under CLISP.
   * SBCL now runs on the Tru64 (aka OSF/1) operating system on the
     Alpha architecture.
-  * bug 140 fixed: Redefinition of classes with different supertypes
-    is now reflected in the type hierarchy. (thanks to Pierre Mai)
   * bug 158 fixed: The compiler can now deal with integer loop
     increments different from 1; fixing this turned out also to fix
     bug 164.

diff --git a/src/pcl/braid.lisp b/src/pcl/braid.lisp
index 246b911..ca67036 100644 (file)
--- a/src/pcl/braid.lisp
+++ b/src/pcl/braid.lisp
@@ -578,7 +578,7 @@
               (sb-kernel:order-layout-inherits
                (map 'simple-vector #'class-wrapper
                     (reverse (rest (class-precedence-list class))))))
-      (sb-kernel:register-layout layout)
+      (sb-kernel:register-layout layout :invalidate nil)
 
       ;; Subclasses of formerly forward-referenced-class may be
       ;; unknown to CL:FIND-CLASS and also anonymous. This

diff --git a/tests/type.impure.lisp b/tests/type.impure.lisp
index bf127c7..8b9a67c 100644 (file)
--- a/tests/type.impure.lisp
+++ b/tests/type.impure.lisp
@@ -343,12 +343,14 @@
 (tests-of-inline-type-tests)
 (format t "~&/done with compiled (TESTS-OF-INLINE-TYPE-TESTS)~%")
 \f
+#|| Pending fix for bug 176, bug 140 has been unfixed
 ;;; Redefinition of classes should alter the type hierarchy (BUG 140):
 (defclass superclass () ())
 (defclass maybe-subclass (superclass) ())
 (assert-t-t (subtypep 'maybe-subclass 'superclass))
 (defclass maybe-subclass () ())
 (assert-nil-t (subtypep 'maybe-subclass 'superclass))
+||#
 \f
 ;;; success
 (quit :unix-status 104)

diff --git a/version.lisp-expr b/version.lisp-expr
index 9195cad..a267efa 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -18,4 +18,4 @@
 ;;; for internal versions, especially for internal versions off the
 ;;; main CVS branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
 
-"0.7.4.41"
+"0.7.4.42"