Changeset 14262

Timestamp:

12/01/12 17:50:49 (8 years ago)

Author:

rschlatte

Message:

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

• fixes #272

File:

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

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

@@ -3341 +3341 @@
 
 (defmethod documentation ((x symbol) (doc-type (eql 'function)))
-  (if (typep (fdefinition x) 'generic-function)
+  (if (and (fboundp x) (typep (fdefinition x) 'generic-function))
       (documentation (fdefinition x) doc-type)
       (%documentation x doc-type)))
 
 (defmethod (setf documentation) (new-value (x symbol) (doc-type (eql 'function)))
-  (if (typep (fdefinition x) 'generic-function)
+  (if (and (fboundp x) (typep (fdefinition x) 'generic-function))
       (setf (documentation (fdefinition x) 'function) new-value)
       (%set-documentation x 'function new-value)))