From: Christophe R. <cr...@us...> - 2005-12-09 15:57:58
|
Update of /cvsroot/sbcl/sbcl/src/pcl In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31181/src/pcl Modified Files: methods.lisp Log Message: 0.9.7.22: Oops II. Make (SETF CLASS-NAME) and (SETF GENERIC-FUNCTION-NAME) return the right values. Index: methods.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/pcl/methods.lisp,v retrieving revision 1.50 retrieving revision 1.51 diff -u -d -r1.50 -r1.51 --- methods.lisp 9 Dec 2005 11:02:30 -0000 1.50 +++ methods.lisp 9 Dec 2005 15:57:46 -0000 1.51 @@ -1563,10 +1563,12 @@ (defmethod (setf class-name) (new-value class) (let ((classoid (%wrapper-classoid (class-wrapper class)))) (setf (classoid-name classoid) new-value)) - (reinitialize-instance class :name new-value)) + (reinitialize-instance class :name new-value) + new-value) (defmethod (setf generic-function-name) (new-value generic-function) - (reinitialize-instance generic-function :name new-value)) + (reinitialize-instance generic-function :name new-value) + new-value) (defmethod function-keywords ((method standard-method)) (multiple-value-bind (nreq nopt keysp restp allow-other-keys-p keywords) |