From ea67a73ab42397f3294c15617dba51a8de2bf64d Mon Sep 17 00:00:00 2001 From: pmai <pmai> Date: Wed, 3 Jul 2002 10:57:17 +0000 Subject: [PATCH] Temporarily reverse the fix to SBCL bug 140, which breaks certain cases of the instance-updating mechanism of PCL, until we fix those issues, too. --- pcl/braid.lisp | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/pcl/braid.lisp b/pcl/braid.lisp index 0af56a597..8fe1de4b0 100644 --- a/pcl/braid.lisp +++ b/pcl/braid.lisp @@ -26,7 +26,7 @@ ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/braid.lisp,v 1.20 2002/05/25 02:42:52 pmai Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/braid.lisp,v 1.21 2002/07/03 10:57:17 pmai Exp $") ;;; ;;; Bootstrapping the meta-braid. ;;; @@ -566,7 +566,12 @@ (kernel:order-layout-inherits (map 'simple-vector #'class-wrapper (reverse (rest (class-precedence-list class)))))) - (kernel:register-layout layout) + + ;; The invalidate nil is wrong, since it leaves the CMUCL type-system + ;; with obsolete information, but fixing it requires extensive changes + ;; to the PCL instance-updating mechanism, which relies on access to + ;; the old wrapper. + (kernel:register-layout layout :invalidate nil) ;; Subclasses of formerly forward-referenced-class may be unknown ;; to lisp:find-class and also anonymous. This functionality moved -- GitLab