Skip to content
Snippets Groups Projects
Commit e780f46d authored by gerd's avatar gerd
Browse files

REMOVE-METHOD.1 test from Paul Dietz.

	* src/pcl/methods.lisp (real-remove-method): Always return the
	generic function.
parent f47f1175
No related branches found
No related tags found
No related merge requests found
...@@ -26,7 +26,7 @@ ...@@ -26,7 +26,7 @@
;;; ;;;
(file-comment (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) (in-package :pcl)
...@@ -455,7 +455,6 @@ ...@@ -455,7 +455,6 @@
method))) method)))
(defun real-remove-method (gf method) (defun real-remove-method (gf method)
;; Note: Error check prohibited by ANSI spec removed.
(when (eq gf (method-generic-function method)) (when (eq gf (method-generic-function method))
(let* ((methods (generic-function-methods gf)) (let* ((methods (generic-function-methods gf))
(new-methods (remove method methods))) (new-methods (remove method methods)))
...@@ -466,8 +465,8 @@ ...@@ -466,8 +465,8 @@
(set-arg-info gf) (set-arg-info gf)
(update-ctors 'remove-method :generic-function gf :method method) (update-ctors 'remove-method :generic-function gf :method method)
(update-dfun gf) (update-dfun gf)
(update-accessor-pvs 'remove-method gf method) (update-accessor-pvs 'remove-method gf method)))
gf))) gf)
;;;; ************************** ;;;; **************************
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment