[armedbear-cvs] r14262 - trunk/abcl/src/org/armedbear/lisp

[rschlatte at common-lisp.net]

Author: rschlatte
Date: Sat Dec  1 09:50:49 2012
New Revision: 14262

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

- fixes #272

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

Modified: trunk/abcl/src/org/armedbear/lisp/clos.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/clos.lisp	Wed Nov 28 10:48:10 2012	(r14261)
+++ trunk/abcl/src/org/armedbear/lisp/clos.lisp	Sat Dec  1 09:50:49 2012	(r14262)
@@ -3340,12 +3340,12 @@
   (%set-documentation x doc-type new-value))
 
 (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)))