Changeset 14343

Timestamp:

12/23/12 16:46:01 (10 years ago)

Author:

Mark Evenson

Message:

Backport r14342 | rschlatte | 2012-12-23 16:19:32 +0100 (Sun, 23 Dec 2012) | 3 lines

Add new slots at the end in inherited classes

• Fixes #280 (reported by Pascal Costanza)

File:

• branches/1.1.x/src/org/armedbear/lisp/clos.lisp (modified) (2 diffs)

branches/1.1.x/src/org/armedbear/lisp/clos.lisp

@@ -676 +676 @@
 
 (defun std-compute-slots (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))))
+  (let* ((all-slots (mapappend #'(lambda (c) (class-direct-slots c))
+                               ;; Slots of base class must come first
+                               (reverse (class-precedence-list class))))
+         (all-names (delete-duplicates
+                     (mapcar 'slot-definition-name all-slots)
+                     :from-end t)))
     (mapcar #'(lambda (name)
                (funcall
@@ -688 +689 @@
                 class
                 name
-                (remove name all-slots
-                        :key 'slot-definition-name
-                        :test-not #'eq)))
+                ;; Slot of inherited class must override initfunction,
+                ;; documentation of base class
+                (nreverse
+                 (remove name all-slots
+                         :key 'slot-definition-name
+                         :test-not #'eq))))
             all-names)))