From: Stelian Ionescu <sionescu@cddr.org>
Date: Thu, 25 Jul 2013 21:42:50 +0000 (+0200)
Subject: Don't print newline
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=699ef81e62776560faa5d35e3a9b66deb24aed31;p=fiveam.git

Don't print newline
---

diff --git a/src/run.lisp b/src/run.lisp
index d9b8c5f..fcb35db 100644
--- a/src/run.lisp
+++ b/src/run.lisp
@@ -196,7 +196,7 @@ run."))
 
 (defmethod %run ((suite test-suite))
   (when *print-names*
-    (format *test-dribble* "~%Running test suite ~A~%" (name suite)))
+    (format *test-dribble* "~%Running test suite ~A" (name suite)))
   (let ((suite-results '()))
     (flet ((run-tests ()
              (loop