Changeset 12391


Ignore:
Timestamp:
01/18/10 20:12:34 (11 years ago)
Author:
ehuelsmann
Message:

Prevent duplicate subclasses: only push new classes

not already present in the list.

File:
1 edited

Legend:

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

    r12191 r12391  
    521521    (setf (class-direct-superclasses class) supers)
    522522    (dolist (superclass supers)
    523       (push class (class-direct-subclasses superclass))))
     523      (pushnew class (class-direct-subclasses superclass))))
    524524  (let ((slots (mapcar #'(lambda (slot-properties)
    525525                          (apply #'make-direct-slot-definition class slot-properties))
Note: See TracChangeset for help on using the changeset viewer.