Changeset 13957

Timestamp:

06/11/12 10:44:13 (9 years ago)

Author:

rschlatte

Message:

Properly initialize documentation for effective slot definitions

File:

• trunk/abcl/src/org/armedbear/lisp/clos.lisp (modified) (2 diffs)

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

@@ -677 +677 @@
   (let ((initer (find-if-not #'null direct-slots
                              :key 'slot-definition-initfunction))
-        (documentation (find-if-not #'null direct-slots
-                                    :key 'slot-definition-documentation))
+        (documentation-slot (find-if-not #'null direct-slots
+                                         :key 'slot-definition-documentation))
         (types (delete-duplicates
                 (delete t (mapcar #'slot-definition-type direct-slots))
@@ -704 +704 @@
                  ((= 1 (length types)) types)
                  (t (list* 'and types)))
-     :documentation documentation)))
+     :documentation (documentation documentation-slot t))))
 
 ;;; Standard instance slot access