Changeset 12391

Timestamp:

01/18/10 20:12:34 (12 years ago)

Author:

ehuelsmann

Message:

Prevent duplicate subclasses: only push new classes

not already present in the list.

File:

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

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

@@ -521 +521 @@
     (setf (class-direct-superclasses class) supers)
     (dolist (superclass supers)
-      (push class (class-direct-subclasses superclass))))
+      (pushnew class (class-direct-subclasses superclass))))
   (let ((slots (mapcar #'(lambda (slot-properties)
                           (apply #'make-direct-slot-definition class slot-properties))