X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Frun.lisp;h=481f33abda1a75cc7fb4eeb1901842e71e43add3;hb=afd9b77ccfe82efa515b6a1546c9f9c4e2a01d8e;hp=274521e5539b332dc78b877fa7821b9d6ab651db;hpb=155247574d4a5e741309bba9c40f636f7e310486;p=fiveam.git

diff --git a/src/run.lisp b/src/run.lisp
index 274521e..481f33a 100644
--- a/src/run.lisp
+++ b/src/run.lisp
@@ -145,7 +145,7 @@ run."))
                          (return-from run-it (run-it)))
                        (ignore ()
                          :report (lambda (stream)
-                                   (format stream "~@<Signal a test failure and abort the test ~S.~@:>" test))
+                                   (format stream "~@<Signal an exceptional test failure and abort the test ~S.~@:>" test))
                          (abort-test (make-instance 'test-failure :test-case test
                                                     :reason "Failure restart."))))
                      result-list))))