From b4d7d8a9eba49f0e0e6351568d45b7ac64f4047f Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Sat, 22 Jun 2002 15:15:29 +0000 Subject: [PATCH] 0.7.4.42: Reopened BUG 140, closing BUG 176 in the process. --- NEWS | 2 -- src/pcl/braid.lisp | 2 +- tests/type.impure.lisp | 2 ++ version.lisp-expr | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/NEWS b/NEWS index 9e38607..e9b978a 100644 --- 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 --- 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 --- 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)~%") +#|| 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)) +||# ;;; success (quit :unix-status 104) diff --git a/version.lisp-expr b/version.lisp-expr index 9195cad..a267efa 100644 --- 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" -- 1.7.10.4