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