diff --git a/pcl/std-class.lisp b/pcl/std-class.lisp index 50e29e5716bf6e629d008a813714fde260b405e0..6ba1fb0eff126c3191b66114dc6a722840ac1742 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))