print statistics instead of returning them (where they are invisible)

AccelerationNet · Jan 16, 2014 · 29be180 · 29be180
1 parent 99b7b38
commit 29be180
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/tests/speed.lisp b/tests/speed.lisp
@@ -95,7 +95,9 @@
                 do (incf cnt3))
             (end-of-file (c) (declare (ignore c)))))))
 
-    (values cnt cnt2 cnt3)))
+    (format lisp-unit2:*test-stream*
+            "~@:_ lines:~D , buffers:~D, buffered-lines:~D~@:_"
+            cnt cnt2 cnt3)))
 
 (define-test collect-big-file-csv-rows ()
   (time-and-log-around (test-log "read large file test")