benchmark.lisp
Wed Jul 8 17:34:16 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Benchmark overload resolution at compile time.
--- old-benchmark/benchmark.lisp 2014-10-30 07:06:52.000000000 +0100
+++ new-benchmark/benchmark.lisp 2014-10-30 07:06:53.000000000 +0100
@@ -39,7 +39,7 @@
(dotimes (n 3)
(funcall function iterations)) ;; startup
(dotimes (n 20 data)
- (sb-ext:gc :full t)
+ (tg:gc :full t)
(push (nconc (list :iterations iterations)
(timing function iterations))
data))))
@@ -62,11 +62,13 @@
(defun run (&optional construct)
(write-lisp-info "info.dat")
(run-compare "signal-slot" #'signal-slot
- #'cl-smoke-benchmark-signal-slot 5000 1000)
+ #'cl-smoke-benchmark-signal-slot 1000 1000)
(run-compare "inline-call" #'inline-call
- #'cl-smoke-benchmark-byte-array-size 50000 3000)
+ #'cl-smoke-benchmark-byte-array-size 10000 3000)
(run-compare "simple-call" #'simple-call
- #'cl-smoke-benchmark-simple-call 50000 3000)
+ #'cl-smoke-benchmark-simple-call 10000 3000)
+ (run-compare "simple-call-compile-time" #'simple-call-compile-time
+ #'cl-smoke-benchmark-simple-call 10000 3000)
(when construct
(with-benchmark-cxx-construct ((* 50 1000))
(run-compare "construct" #'construct