From 74988e2c0730b757d12b478f6efb3ccf8e9ccb94 Mon Sep 17 00:00:00 2001
From: Attila Lendvai <attila.lendvai@gmail.com>
Date: Sat, 9 Dec 2006 16:47:15 +0100
Subject: [PATCH] Print failed tests in the order of execution

---
 src/explain.lisp |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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))
-- 
1.7.10.4