projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9219: sql/relations.lisp: fix to add subclassing support, minor optimizations [Edi...
[clsql.git]
/
tests
/
benchmarks.lisp
diff --git
a/tests/benchmarks.lisp
b/tests/benchmarks.lisp
index 8c3a0ce62403a27c8868dca630e199e09e73e034..eb218b6791441299881ae95bca36e7a06934a931 100644
(file)
--- a/
tests/benchmarks.lisp
+++ b/
tests/benchmarks.lisp
@@
-27,7
+27,7
@@
(c :initarg :c
:type float)))
(c :initarg :c
:type float)))
-(defun run-benchmarks (&key (report-stream *standard-output*) (sexp-report-stream nil) (count 1000))
+(defun run-benchmarks (&key (report-stream *standard-output*) (sexp-report-stream nil) (count 1000
0
))
(let ((specs (read-specs))
(*report-stream* report-stream)
(*sexp-report-stream* sexp-report-stream))
(let ((specs (read-specs))
(*report-stream* report-stream)
(*sexp-report-stream* sexp-report-stream))
@@
-50,7
+50,7
@@
(drop-view-from-class 'bench))
(defun benchmark-init ()
(drop-view-from-class 'bench))
(defun benchmark-init ()
- (dotimes (i 10
0
)
+ (dotimes (i 10)
(execute-command "INSERT INTO BENCH (A,B,C) VALUES (123,'A Medium size string',3.14159)")))
(defun benchmark-selects (n)
(execute-command "INSERT INTO BENCH (A,B,C) VALUES (123,'A Medium size string',3.14159)")))
(defun benchmark-selects (n)