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