Changeset 13965


Ignore:
Timestamp:
06/14/12 16:16:57 (9 years ago)
Author:
rschlatte
Message:

Implement (setf generic-function-name)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/clos.lisp

    r13964 r13965  
    40534053    (sys:%generic-function-name generic-function)))
    40544054
     4055;;; AMOP pg. 231
     4056(defgeneric (setf generic-function-name) (new-value gf)
     4057  (:method (new-value (gf generic-function))
     4058    (reinitialize-instance gf :name new-value)))
     4059
    40554060;;; Readers for Method Metaobjects
    40564061;;; AMOP pg. 218ff.
Note: See TracChangeset for help on using the changeset viewer.