diff --git a/pcl/std-class.lisp b/pcl/std-class.lisp index bf11822080c67198663819ab354f1da672beb11c..d7f9a8df5000fb45af7b6394e1bf30d0644686b8 100644 --- a/pcl/std-class.lisp +++ b/pcl/std-class.lisp @@ -26,7 +26,7 @@ ;;; #+cmu (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/std-class.lisp,v 1.21 1999/01/12 17:51:09 pw Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/std-class.lisp,v 1.22 1999/02/12 21:47:14 pw Exp $") ;;; (in-package :pcl) @@ -467,8 +467,9 @@ (setf (slot-value class 'class-eq-specializer) (make-instance 'class-eq-specializer :class class))) -(defmethod reinitialize-instance :before ((class slot-class) &key) - (remove-direct-subclasses class (class-direct-superclasses class)) +(defmethod reinitialize-instance :before ((class slot-class) + &key direct-superclasses) + (remove-direct-subclasses class direct-superclasses) (remove-slot-accessors class (class-direct-slots class))) (defmethod reinitialize-instance :after ((class slot-class)