Changeset 14262
- Timestamp:
- 12/01/12 17:50:49 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/clos.lisp
r14254 r14262 3341 3341 3342 3342 (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)) 3344 3344 (documentation (fdefinition x) doc-type) 3345 3345 (%documentation x doc-type))) 3346 3346 3347 3347 (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)) 3349 3349 (setf (documentation (fdefinition x) 'function) new-value) 3350 3350 (%set-documentation x 'function new-value)))
Note: See TracChangeset
for help on using the changeset viewer.