fix mean throughput display in benchmark

sshirokov · Oct 10, 2011 · 8ff7cd6 · 8ff7cd6
1 parent 8c2c766
commit 8ff7cd6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/examples/official-benchmarks.lisp b/examples/official-benchmarks.lisp
@@ -101,7 +101,7 @@
               (format t "message count: ~A~%" message-count)
               (format t "message size: ~A [B]~%" message-size)
               (format t "mean throughput ~A [msg/s]~%" (round throughput))
-              (format t "mean throughput ~,3F [Mb/s]~%" (round megabits)))))
+              (format t "mean throughput ~,3F [Mb/s]~%" megabits))))
         (bordeaux-threads:join-thread thread)))))
 
 (defun inproc-lat (message-size roundtrip-count)