From 8f0bbb6425997f2ff963d7776dea4cfc53f7bdbd Mon Sep 17 00:00:00 2001
From: pmai <pmai>
Date: Thu, 2 Jan 2003 13:11:57 +0000
Subject: [PATCH] Entomotomy Bug:
 define-method-combination-returns-method-not-name

As per ANSI, define-method-combination should return the name of the
method combination.
---
 pcl/defcombin.lisp | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/pcl/defcombin.lisp b/pcl/defcombin.lisp
index ef4d872b2..5c7857308 100644
--- a/pcl/defcombin.lisp
+++ b/pcl/defcombin.lisp
@@ -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))
-- 
GitLab