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

* ASDF & modular smoke.

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

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

@@ -36,7 +36,7 @@

(defun signal-slot (iterations)

(declare (fixnum iterations)

(optimize (speed 3)))

- (let ((my-signal (make-instance 'cl-smoke.qt-impl::qsignal :argument-types nil)))

+ (let ((my-signal (make-instance 'cl-smoke.qt.core::qsignal :argument-types nil)))

(declare (function my-signal))

(qt:connect my-signal

#'(lambda ()))