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