Changeset 13957
- Timestamp:
- 06/11/12 10:44:13 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/clos.lisp
r13956 r13957 677 677 (let ((initer (find-if-not #'null direct-slots 678 678 :key 'slot-definition-initfunction)) 679 (documentation (find-if-not #'null direct-slots680 :key 'slot-definition-documentation))679 (documentation-slot (find-if-not #'null direct-slots 680 :key 'slot-definition-documentation)) 681 681 (types (delete-duplicates 682 682 (delete t (mapcar #'slot-definition-type direct-slots)) … … 704 704 ((= 1 (length types)) types) 705 705 (t (list* 'and types))) 706 :documentation documentation)))706 :documentation (documentation documentation-slot t)))) 707 707 708 708 ;;; Standard instance slot access
Note: See TracChangeset
for help on using the changeset viewer.