Changeset 13965 for trunk/abcl/src/org/armedbear/lisp/clos.lisp

Timestamp:

06/14/12 16:16:57 (10 years ago)

Author:

rschlatte

Message:

Implement (setf generic-function-name)

File:

• trunk/abcl/src/org/armedbear/lisp/clos.lisp (modified) (1 diff)

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

@@ -4053 +4053 @@
     (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.