;;;; *************************************************************************
;;;; 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
;;;;
;;;; *************************************************************************
(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))