Use the local exerr in print-errors.
authorThomas M. Hermann <thomas.m.hermann@odonata-research.com>
Fri, 23 Nov 2012 16:00:05 +0000 (23 10:00 -0600)
committerThomas M. Hermann <thomas.m.hermann@odonata-research.com>
Fri, 23 Nov 2012 16:00:05 +0000 (23 10:00 -0600)
lisp-unit.lisp

index 4b757a8..143aa23 100644 (file)
@@ -737,7 +737,7 @@ assertion.")
   (let ((exerr (exerr result))
         (*print-escape* nil))
     (when exerr
-      (format t "~& | Execution error:~% | ~W" (exerr result))
+      (format t "~& | Execution error:~% | ~W" exerr)
       (format t "~& |~%"))))
 
 (defmethod print-errors ((results test-results-db))