Changeset 14158


Ignore:
Timestamp:
09/30/12 13:11:05 (9 years ago)
Author:
rschlatte
Message:

Change slot ordering: slots defined in the superclass come first

File:
1 edited

Legend:

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

    r14157 r14158  
    676676
    677677(defun std-compute-slots (class)
    678   (let* ((all-slots (mapappend #'class-direct-slots
    679                                (class-precedence-list class)))
     678  (let* ((all-slots (nreverse ;; Slots of base class should come first
     679                     (mapappend #'(lambda (c) (reverse (class-direct-slots c)))
     680                                (reverse (class-precedence-list class)))))
    680681         (all-names (remove-duplicates
    681682                     (mapcar 'slot-definition-name all-slots))))
Note: See TracChangeset for help on using the changeset viewer.