Changeset 14158

Timestamp:

09/30/12 13:11:05 (11 years ago)

Author:

rschlatte

Message:

Change slot ordering: slots defined in the superclass come first

File:

• trunk/abcl/src/org/armedbear/lisp/clos.lisp (modified) (1 diff)

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

@@ -676 +676 @@
 
 (defun std-compute-slots (class)
-  (let* ((all-slots (mapappend #'class-direct-slots
-                               (class-precedence-list class)))
+  (let* ((all-slots (nreverse ;; Slots of base class should come first
+                     (mapappend #'(lambda (c) (reverse (class-direct-slots c)))
+                                (reverse (class-precedence-list class)))))
          (all-names (remove-duplicates
                      (mapcar 'slot-definition-name all-slots))))