diff --git a/pcl/boot.lisp b/pcl/boot.lisp index 79907f299025d48a1f4faaa50098616b5c173bc9..42c20724589823b71b6705ffb96278a33660b30b 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 a16756067506fbb0843111016d15e106b6c00d2e..aece039e285cdafa57d387592952e8ceafd676eb 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))