From e780f46dac68e5744960591ad4b1a44f077a3293 Mon Sep 17 00:00:00 2001 From: gerd <gerd> Date: Mon, 12 May 2003 11:27:47 +0000 Subject: [PATCH] REMOVE-METHOD.1 test from Paul Dietz. * src/pcl/methods.lisp (real-remove-method): Always return the generic function. --- pcl/methods.lisp | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/pcl/methods.lisp b/pcl/methods.lisp index 87fc76a9f..fd7086eca 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) ;;;; ************************** -- GitLab