Commit 40049148 authored by Juergen Nickelsen's avatar Juergen Nickelsen

better FAIL output formatting

parent 8ff1e9d8
......@@ -33,7 +33,7 @@ the evaluation of FORM and VALUE are equal."
(format t "%d tests, %d FAILS" ntests (length fails))
(dolist (err (reverse fails))
(format t " \"%s:%s\"" (cdr err) (car err)))
(format t "\n FAIL \"%s:%s\"" (cdr err) (car err)))
(terpri)
(when fails
(exit 1))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment