X-Git-Url: http://git.kpe.io/?p=xptest.git;a=blobdiff_plain;f=xptestsuite.lisp;fp=xptestsuite.lisp;h=b2414b3e017f9398bf6fc2175c3111f7726d0564;hp=440f6bc9a036f66b0ee8be57a37862a987fa04cf;hb=af8151668c884e059f6fa19c9309f72886d7c838;hpb=f5bd853cb9bab049c66ce93cc7fb4a3dcacac185 diff --git a/xptestsuite.lisp b/xptestsuite.lisp index 440f6bc..b2414b3 100644 --- a/xptestsuite.lisp +++ b/xptestsuite.lisp @@ -7,7 +7,7 @@ ;;;; Author: Craig Brozefsky ;;;; Put in public domain by onShore, Inc ;;;; -;;;; $Id: xptestsuite.lisp,v 1.3 2003/04/19 16:16:16 kevin Exp $ +;;;; $Id: xptestsuite.lisp,v 1.4 2003/04/23 22:24:27 kevin Exp $ (in-package #:cl-user) @@ -270,7 +270,8 @@ or failed or errored out." (format stream "Errors:~%") (mapcar #'(lambda (fail) (format stream " ~A" fail)) (test-errors result)))))) - (format stream "~%~%")) + ;(format stream "~%~%") ; debian bug #190398 + ) (defmethod report-result ((results list) &key (stream t) (verbose nil)) (dolist (foo results)