Very ragged work-in-progress.
[sod] / cpl.lisp
index 5a8c7c1..041e8e7 100644 (file)
--- a/cpl.lisp
+++ b/cpl.lisp
   (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)))