[armedbear-cvs] r13965 - trunk/abcl/src/org/armedbear/lisp

[rschlatte at common-lisp.net]

Author: rschlatte
Date: Thu Jun 14 09:16:57 2012
New Revision: 13965

Log:
Implement (setf generic-function-name)

Modified:
   trunk/abcl/src/org/armedbear/lisp/clos.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/clos.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/clos.lisp	Thu Jun 14 05:46:25 2012	(r13964)
+++ trunk/abcl/src/org/armedbear/lisp/clos.lisp	Thu Jun 14 09:16:57 2012	(r13965)
@@ -4052,6 +4052,11 @@
   (:method ((generic-function standard-generic-function))
     (sys:%generic-function-name generic-function)))
 
+;;; AMOP pg. 231
+(defgeneric (setf generic-function-name) (new-value gf)
+  (:method (new-value (gf generic-function))
+    (reinitialize-instance gf :name new-value)))
+
 ;;; Readers for Method Metaobjects
 ;;; AMOP pg. 218ff.