X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fexplain.lisp;fp=src%2Fexplain.lisp;h=84d68717cd1dfe377a7b636253a85f9beba6d13f;hb=74988e2c0730b757d12b478f6efb3ccf8e9ccb94;hp=b3bf2c3be86ad5c68f72498e00222ca6a6bc9ea4;hpb=9b43cf64817a75a55ea28fa549e35f8ab7eb44ca;p=fiveam.git

diff --git a/src/explain.lisp b/src/explain.lisp
index b3bf2c3..84d6871 100644
--- 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))