- (run-on-test-result ob result)
- (print-results test-runner result
- (/ (- (get-internal-real-time) start-time)
- internal-time-units-per-second))))
-
+ (run-on-test-results ob result)
+ (print-results test-runner result
+ (/ (- (get-internal-real-time) start-time)
+ internal-time-units-per-second))
+ result))