lisp-benchmark.lisp
Wed Jul 8 17:34:16 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Benchmark overload resolution at compile time.
--- old-benchmark/lisp-benchmark.lisp 2014-10-30 07:06:56.000000000 +0100
+++ new-benchmark/lisp-benchmark.lisp 2014-10-30 07:06:56.000000000 +0100
@@ -10,13 +10,24 @@
(setf char (cxx:aref array 0))))))
(let ((object (make-instance 'qt:object)))
- (declare (qt:object object))
+; (declare (qt:object object))
(defun simple-call (iterations)
(declare (fixnum iterations)
(optimize (speed 3)))
(dotimes (i iterations)
(cxx:kill-timer object 0))))
+#+sbcl
+(smoke::define-resolve-at-compile-time cxx:kill-timer)
+
+(let ((object (make-instance 'qt:object)))
+ (declare (qt:object object))
+ (defun simple-call-compile-time (iterations)
+ (declare (fixnum iterations)
+ (optimize (speed 3)))
+ (dotimes (i iterations)
+ (cxx:kill-timer object 0))))
+
(defclass my-object (qt:object)
()
(:metaclass cxx:class))