From dbb7062045bdccb368b99be6e127a6e5f116f5b7 Mon Sep 17 00:00:00 2001
From: phg <phg>
Date: Mon, 8 Feb 1993 17:39:23 +0000
Subject: [PATCH] Changed the definition of force-cache-flushes by removing
 unnecessary call to update-constructors, as suggested by Richard Harris.

---
 pcl/std-class.lisp | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/pcl/std-class.lisp b/pcl/std-class.lisp
index 50e29e571..6ba1fb0ef 100644
--- a/pcl/std-class.lisp
+++ b/pcl/std-class.lisp
@@ -1022,8 +1022,7 @@
 	      (wrapper-class-slots owrapper))
 	(without-interrupts
 	  (setf (slot-value class 'wrapper) nwrapper)
-	  (invalidate-wrapper owrapper ':flush nwrapper))
-	(update-constructors class)))))		;??? ***
+	  (invalidate-wrapper owrapper ':flush nwrapper))))))
 
 (defun flush-cache-trap (owrapper nwrapper instance)
   (declare (ignore owrapper))
-- 
GitLab