From fef4763fc7f045123d1ee1e9e3fe831c40f2d0fc Mon Sep 17 00:00:00 2001 From: pw <pw> Date: Fri, 12 Feb 1999 21:47:14 +0000 Subject: [PATCH] /tmp/z.tmp --- pcl/std-class.lisp | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/pcl/std-class.lisp b/pcl/std-class.lisp index bf1182208..d7f9a8df5 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) -- GitLab