diff --git a/pcl/methods.lisp b/pcl/methods.lisp index 53a26e2c495414709e5393c8496fb8637e5f6851..a16756067506fbb0843111016d15e106b6c00d2e 100644 --- a/pcl/methods.lisp +++ b/pcl/methods.lisp @@ -26,7 +26,7 @@ ;;; (file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/methods.lisp,v 1.36 2003/06/04 08:47:03 gerd Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/methods.lisp,v 1.37 2003/06/05 07:46:32 gerd Exp $") (in-package :pcl) @@ -463,7 +463,7 @@ (update-ctors 'add-method :generic-function gf :method method) (update-dfun gf)) (update-accessor-pvs 'add-method gf method old) - method))) + gf))) (defun real-remove-method (gf method) (when (eq gf (method-generic-function method))