Sun Jan 10 11:16:40 CET 2010 Tobias Rautenkranz <tobias@rautenkranz.ch>

* ASDF & modular smoke.

--- old-benchmark/benchmark.lisp 2014-10-30 07:06:37.000000000 +0100

+++ new-benchmark/benchmark.lisp 2014-10-30 07:06:37.000000000 +0100

@@ -27,11 +27,12 @@

(defun write-lisp-info (file)

(write-R-table

`((:type ,(lisp-implementation-type)

- :version ,(lisp-implementation-version)

- :arch ,(machine-type)

- :os ,(software-type)

- :os-version ,(software-version)

- :cl-smoke-version ,(mb.sysdef::version-string (mb.sysdef:version-of (mb.sysdef:find-system :smoke)))))

+ :version ,(lisp-implementation-version)

+ :arch ,(machine-type)

+ :os ,(software-type)

+ :os-version ,(software-version)

+ :cl-smoke-version ,(format nil "~{~A~^.~}"

+ (asdf:component-version (asdf:find-system :cl-smoke.smoke)))))

file))

(defun benchmark (function iterations)

@@ -68,7 +69,7 @@

(run-compare "simple-call" #'simple-call

#'cl-smoke-benchmark-simple-call 10000 3000)

(run-compare "simple-call-compile-time" #'simple-call-compile-time

- #'cl-smoke-benchmark-simple-call 10000 3000)

+ #'cl-smoke-benchmark-simple-call 10000 1000)

(when construct

(with-benchmark-cxx-construct ((* 50 1000))

(run-compare "construct" #'construct