EXPLAIN: call TERPRI on the actual argument

Ferada · Apr 23, 2012 · 4779162 · 4779162
1 parent fd4b6e0
commit 4779162
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/explain.lisp b/src/explain.lisp
@@ -61,7 +61,7 @@
                   (name (test-case f))
                   (description (test-case f)))
           (output "    ~A.~%" (reason f)))
-        (terpri *test-dribble*)))))
+        (terpri stream)))))
 
 (defmethod explain ((exp simple-text-explainer) results
                     &optional (stream *test-dribble*) (recursive-depth 0))