;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
-;;;; ID: $Id: textui.lisp,v 1.2 2003/08/04 17:04:50 kevin Exp $
+;;;; ID: $Id: textui.lisp,v 1.3 2003/08/10 07:39:33 kevin Exp $
;;;; Purpose: Text UI for Test Runner
;;;;
;;;; *************************************************************************
(run-on-test-results ob result)
(print-results test-runner result
(/ (- (get-internal-real-time) start-time)
- internal-time-units-per-second))))
-
+ internal-time-units-per-second))
+ result))