(labels ((superclasses (class)
(let ((direct-supers (sod-class-direct-superclasses class)))
(remove-duplicates (cons class
- (reduce #'append
- (mapcar #'superclasses
- direct-supers)
- :from-end t
- :initial-value nil))))))
+ (mappend #'superclasses
+ direct-supers))))))
(merge-lists (mapcar (lambda (class)
(cons class
(sod-class-direct-superclasses class)))