X-Git-Url: http://git.kpe.io/?p=xlunit.git;a=blobdiff_plain;f=result.lisp;fp=result.lisp;h=66f69ee9d5091a64c932911c40e259936116466c;hp=28baaa5644a8f22fe1d85cffab02ec64a9473929;hb=b889ac95ba72db60faa35fe08b360aaa33a795ed;hpb=e2bf8174193c9acc013b8bbbc116b7e7acc86526

diff --git a/result.lisp b/result.lisp
index 28baaa5..66f69ee 100644
--- a/result.lisp
+++ b/result.lisp
@@ -2,7 +2,7 @@
 ;;;; *************************************************************************
 ;;;; FILE IDENTIFICATION
 ;;;;
-;;;; ID:      $Id: result.lisp,v 1.7 2003/08/05 22:56:25 kevin Exp $
+;;;; ID:      $Id: result.lisp,v 1.8 2003/08/10 07:39:33 kevin Exp $
 ;;;; Purpose:  Result functions for XLUnit
 ;;;;
 ;;;; *************************************************************************
@@ -31,7 +31,9 @@
 
 (defmethod start-test ((tcase test) (res test-results))
   (incf (run-tests res))
-  (mapc (lambda (listener) (start-test listener tcase)) (listeners res))
+  (mapc (lambda (listener)
+	  (start-test listener tcase)) 
+	(listeners res))
   res)
 
 (defmethod end-test ((tcase test) (res test-results))