Ignore:
Timestamp:
06/11/12 10:44:13 (9 years ago)
Author:
rschlatte
Message:

Properly initialize documentation for effective slot definitions

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/clos.lisp

    r13956 r13957  
    677677  (let ((initer (find-if-not #'null direct-slots
    678678                             :key 'slot-definition-initfunction))
    679         (documentation (find-if-not #'null direct-slots
    680                                     :key 'slot-definition-documentation))
     679        (documentation-slot (find-if-not #'null direct-slots
     680                                         :key 'slot-definition-documentation))
    681681        (types (delete-duplicates
    682682                (delete t (mapcar #'slot-definition-type direct-slots))
     
    704704                 ((= 1 (length types)) types)
    705705                 (t (list* 'and types)))
    706      :documentation documentation)))
     706     :documentation (documentation documentation-slot t))))
    707707
    708708;;; Standard instance slot access
Note: See TracChangeset for help on using the changeset viewer.