diff --git a/pcl/methods.lisp b/pcl/methods.lisp index 87fc76a9f8c2665cca817a790783e5b6eb1d5150..fd7086eca04a2d0c2cd80dde8953f601fd399aee 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.30 2003/05/11 11:30:34 gerd Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/methods.lisp,v 1.31 2003/05/12 11:27:47 gerd Exp $") (in-package :pcl) @@ -455,7 +455,6 @@ method))) (defun real-remove-method (gf method) - ;; Note: Error check prohibited by ANSI spec removed. (when (eq gf (method-generic-function method)) (let* ((methods (generic-function-methods gf)) (new-methods (remove method methods))) @@ -466,8 +465,8 @@ (set-arg-info gf) (update-ctors 'remove-method :generic-function gf :method method) (update-dfun gf) - (update-accessor-pvs 'remove-method gf method) - gf))) + (update-accessor-pvs 'remove-method gf method))) + gf) ;;;; **************************