repos
/
benchmark
/ annotate_shade
summary
|
shortlog
|
log
|
tree
|
commit
|
commitdiff
|
headdiff
|
annotate
|
headblob
|
headfilediff
|
filehistory
normal
|
plain
|
shade
|
zebra
initial import
Annotate for file lisp-benchmark.lisp
2009-05-25 tobias
1
(in-package :cl-smoke.benchmark)
14:59:32 '
2
'
3
(let ((array (make-instance 'qt:byte-array :args '("foobar"))))
'
4
(defun inline-call (iterations)
'
5
(declare (fixnum iterations)
'
6
(optimize (speed 3)))
'
7
(let ((char #\Null))
'
8
(declare (character char))
'
9
(dotimes (i iterations char)
'
10
(setf char (cxx:aref array 0))))))
'
11
'
12
(let ((object (make-instance 'qt:object)))
'
13
(defun simple-call (iterations)
'
14
(declare (fixnum iterations)
'
15
(optimize (speed 3)))
'
16
(dotimes (i iterations)
'
17
(cxx:kill-timer object 0))))
'
18
'
19
(defclass my-object (qt:object)
'
20
()
'
21
(:metaclass cxx:class))
'
22
'
23
(defmethod cxx:meta-object ((object my-object))
'
24
(declare (optimize (speed 3)))
'
25
nil)
'
26
'
27
(defun overload (iterations)
'
28
(declare (fixnum iterations)
'
29
(optimize (speed 3)))
'
30
(let ((object (make-instance 'my-object)))
'
31
(dotimes (i iterations)
'
32
(cxx:meta-object object))))
'
33
'
34
(defun construct (iterations)
'
35
(declare (fixnum iterations)
'
36
(optimize (speed 3)))
'
37
(dotimes (i iterations)
'
38
(make-instance 'qt:object)))