;;;; Author: Craig Brozefsky <craig@onshore.com>
;;;; 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)
(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)