Ignore:
Timestamp:
11/26/12 19:38:28 (8 years ago)
Author:
rschlatte
Message:

Fix (documentation symbol 'function) when symbol names a generic function

File:
1 edited

Legend:

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

    r14164 r14254  
    33413341
    33423342(defmethod documentation ((x symbol) (doc-type (eql 'function)))
    3343   (%documentation x 'function))
     3343  (if (typep (fdefinition x) 'generic-function)
     3344      (documentation (fdefinition x) doc-type)
     3345      (%documentation x doc-type)))
     3346
     3347(defmethod (setf documentation) (new-value (x symbol) (doc-type (eql 'function)))
     3348  (if (typep (fdefinition x) 'generic-function)
     3349      (setf (documentation (fdefinition x) 'function) new-value)
     3350      (%set-documentation x 'function new-value)))
    33443351
    33453352(defmethod documentation ((x symbol) (doc-type (eql 'type)))
Note: See TracChangeset for help on using the changeset viewer.