From 7656408c99feef74048b3d20fc7d630ee27041b3 Mon Sep 17 00:00:00 2001 From: pmai <pmai> Date: Sat, 25 May 2002 02:42:52 +0000 Subject: [PATCH] This fixes BUG 140 of the SBCL BUGS file, where redefining a class with a changed CPL didn't update the CMUCL type system. This was caused not by type-cache lossage, but rather by missing calls to invalidate-layout for the PCL wrappers. The conducted fix is a bit experimental, since the call to register-layout explicitly avoided the call to invalidate-layout, so one suspects there was a reason for this. However all conducted tests didn't show any problems. --- pcl/braid.lisp | 11 ++--------- 1 file changed, 2 insertions(+), 9 deletions(-) diff --git a/pcl/braid.lisp b/pcl/braid.lisp index 049362059..0af56a597 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.19 2001/07/08 16:24:39 pw Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/braid.lisp,v 1.20 2002/05/25 02:42:52 pmai Exp $") ;;; ;;; Bootstrapping the meta-braid. ;;; @@ -566,7 +566,7 @@ (kernel:order-layout-inherits (map 'simple-vector #'class-wrapper (reverse (rest (class-precedence-list class)))))) - (kernel:register-layout layout :invalidate nil) + (kernel:register-layout layout) ;; Subclasses of formerly forward-referenced-class may be unknown ;; to lisp:find-class and also anonymous. This functionality moved @@ -620,10 +620,3 @@ when called with arguments ~S." :function generic-function :arguments args) (apply generic-function args)) - -;; (defmethod no-applicable-method (generic-function &rest args) -;; (cerror "Retry call to ~S" -;; "No matching method for the generic-function ~S,~@ -;; when called with arguments ~S." -;; generic-function args) -;; (apply generic-function args)) -- GitLab