Print failed tests in the order of execution

diff --git a/src/explain.lisp b/src/explain.lisp
index b3bf2c3..84d6871 100644 (file)
--- a/src/explain.lisp
+++ b/src/explain.lisp
@@ -38,7 +38,7 @@
       (terpri stream)
       (when failed
         (output "Failure Details:~%")
-        (dolist (f failed)
+        (dolist (f (reverse failed))
           (output "--------------------------------~%")
           (output "~A ~@{[~A]~}: ~%" 
                   (name (test-case f))