Skip to content
Snippets Groups Projects
Commit 8f0bbb64 authored by pmai's avatar pmai
Browse files

Entomotomy Bug: define-method-combination-returns-method-not-name

As per ANSI, define-method-combination should return the name of the
method combination.
parent 3366c5bb
No related branches found
No related tags found
No related merge requests found
......@@ -26,7 +26,7 @@
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/defcombin.lisp,v 1.18 2002/10/19 14:56:02 pmai Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/defcombin.lisp,v 1.19 2003/01/02 13:11:57 pmai Exp $")
;;;
(in-package :pcl)
......@@ -145,7 +145,8 @@
,*load-pathname*)))
(when old-method
(remove-method #'find-method-combination old-method))
(add-method #'find-method-combination new-method)))
(add-method #'find-method-combination new-method)
type))
(defun make-short-method-combination (type options operator ioa method doc)
(cond ((null options) (setq options '(:most-specific-first)))
......@@ -280,7 +281,8 @@
,*load-pathname*))))
(setf (gethash type *long-method-combination-functions*) function)
(when old-method (remove-method #'find-method-combination old-method))
(add-method #'find-method-combination new-method)))
(add-method #'find-method-combination new-method)
type))
(defmethod compute-discriminating-function :around
((gf standard-generic-function))
......
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