Changeset 14262


Ignore:
Timestamp:
12/01/12 17:50:49 (8 years ago)
Author:
rschlatte
Message:

Fix (describe x 'function) for non-fbound x

File:
1 edited

Legend:

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

    r14254 r14262  
    33413341
    33423342(defmethod documentation ((x symbol) (doc-type (eql 'function)))
    3343   (if (typep (fdefinition x) 'generic-function)
     3343  (if (and (fboundp x) (typep (fdefinition x) 'generic-function))
    33443344      (documentation (fdefinition x) doc-type)
    33453345      (%documentation x doc-type)))
    33463346
    33473347(defmethod (setf documentation) (new-value (x symbol) (doc-type (eql 'function)))
    3348   (if (typep (fdefinition x) 'generic-function)
     3348  (if (and (fboundp x) (typep (fdefinition x) 'generic-function))
    33493349      (setf (documentation (fdefinition x) 'function) new-value)
    33503350      (%set-documentation x 'function new-value)))
Note: See TracChangeset for help on using the changeset viewer.