Changeset 14254
- Timestamp:
- 11/26/12 19:38:28 (8 years ago)
- Location:
- trunk/abcl/src/org/armedbear/lisp
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/Primitives.java
r14215 r14254 5671 5671 if (doc == NIL) { 5672 5672 if (docType == Symbol.FUNCTION && object instanceof Symbol) { 5673 // Generic functions are handled at lisp-level, not here 5673 5674 LispObject function = object.getSymbolFunction(); 5674 5675 if (function != null) … … 5693 5694 5694 5695 { 5696 // Generic functions are handled at lisp-level, not here 5695 5697 object.setDocumentation(docType, documentation); 5696 5698 return documentation; -
trunk/abcl/src/org/armedbear/lisp/clos.lisp
r14164 r14254 3341 3341 3342 3342 (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))) 3344 3351 3345 3352 (defmethod documentation ((x symbol) (doc-type (eql 'type)))
Note: See TracChangeset
for help on using the changeset viewer.