From d35e360546c7cd8a9d262cb8d27fd8f34f2ffd24 Mon Sep 17 00:00:00 2001
From: gerd <gerd>
Date: Thu, 5 Jun 2003 08:33:45 +0000
Subject: [PATCH] 	* src/pcl/methods.lisp (#+loadable-pcl): Return new
 method.

	* src/pcl/boot.lisp (early-add-named-method): Return new method.
	(add-method, remove-method) [#-loadable-pcl]: Return the gf.
---
 pcl/boot.lisp    | 11 +++++++----
 pcl/methods.lisp |  5 +++--
 2 files changed, 10 insertions(+), 6 deletions(-)

diff --git a/pcl/boot.lisp b/pcl/boot.lisp
index 79907f299..42c207245 100644
--- a/pcl/boot.lisp
+++ b/pcl/boot.lisp
@@ -25,7 +25,7 @@
 ;;; *************************************************************************
 
 (file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/boot.lisp,v 1.67 2003/06/03 11:38:15 gerd Exp $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/boot.lisp,v 1.68 2003/06/05 08:33:45 gerd Exp $")
 
 (in-package :pcl)
 
@@ -2041,7 +2041,8 @@ work during bootstrapping.
 			     initargs
 			     ())))
     (when existing (remove-method gf existing))
-    (add-method gf new)))
+    (add-method gf new)
+    new))
 
 ;;;
 ;;; This is the early version of add-method.  Later this will become a
@@ -2059,7 +2060,8 @@ work during bootstrapping.
     (set-arg-info generic-function :new-method method)
     (unless (assoc (early-gf-name generic-function) *generic-function-fixups*
 		   :test #'equal)
-      (update-dfun generic-function)))
+      (update-dfun generic-function))
+    generic-function)
 
   ;;
   ;; This is the early version of remove method.
@@ -2074,7 +2076,8 @@ work during bootstrapping.
     (set-arg-info generic-function)
     (unless (assoc (early-gf-name generic-function) *generic-function-fixups*
 		   :test #'equal)
-      (update-dfun generic-function)))
+      (update-dfun generic-function))
+    generic-function)
 
   ;;
   ;; And the early version of get-method.
diff --git a/pcl/methods.lisp b/pcl/methods.lisp
index a16756067..aece039e2 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.37 2003/06/05 07:46:32 gerd Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/methods.lisp,v 1.38 2003/06/05 08:33:45 gerd Exp $")
 
 (in-package :pcl)
 
@@ -360,7 +360,8 @@
 		     :specializers specs
 		     :lambda-list lambda-list
 		     other-initargs)))
-    (add-method gf new)))
+    (add-method gf new)
+    new))
 
 	
 
-- 
GitLab