X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/3b92d2b13d6784a8e30babcf6def39d2ba05082f..b045196ca0fcb1d72d2d6b1c4eabcc76df13e034:/src/class-finalize-impl.lisp

diff --git a/src/class-finalize-impl.lisp b/src/class-finalize-impl.lisp
index 6401318..b92b604 100644
--- a/src/class-finalize-impl.lisp
+++ b/src/class-finalize-impl.lisp
@@ -123,7 +123,7 @@
    direct subclass then that subclass's direct superclasses list must order
    them relative to each other."
 
-  (dolist (class so-far)
+  (dolist (class (reverse so-far))
     (dolist (candidate candidates)
       (when (member candidate (sod-class-direct-superclasses class))
 	(return-from clos-tiebreaker candidate))))