Fri Jun 19 17:31:27 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* add signal-slot benchmark & better graphs

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

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

@@ -10,6 +10,7 @@

(setf char (cxx:aref array 0))))))

(let ((object (make-instance 'qt:object)))

+ (declare (qt:object object))

(defun simple-call (iterations)

(declare (fixnum iterations)

(optimize (speed 3)))

@@ -20,16 +21,17 @@

()

(:metaclass cxx:class))

-(defmethod cxx:meta-object ((object my-object))

- (declare (optimize (speed 3)))

- nil)

-(defun overload (iterations)

+(defun signal-slot (iterations)

(declare (fixnum iterations)

(optimize (speed 3)))

- (let ((object (make-instance 'my-object)))

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

+ (declare (function my-signal))

+ (qt:connect my-signal

+ #'(lambda ()))

(dotimes (i iterations)

- (cxx:meta-object object))))

+ (funcall my-signal))))

+

(defun construct (iterations)

(declare (fixnum iterations)