Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Karsten Poeck
cl-bench
Commits
d1806cab
Commit
d1806cab
authored
Feb 13, 2016
by
Daniel Kochmański
Browse files
tests: ecl: refine scripts discrimination
parent
39829f8a
Changes
3
Hide whitespace changes
Inline
Side-by-side
do-execute-script.lisp
View file @
d1806cab
...
...
@@ -34,14 +34,14 @@
(
bench-gc
)
(
bench-report
'cl-bench.misc:run-compiler
"COMPILER"
3
))
#-
(
or
gcl
armedbear
ecl
)
#-
(
or
gcl
armedbear
)
(
progn
(
format
t
"=== running #<benchmark LOAD-FASL for 20 runs>~%"
)
(
force-output
)
(
bench-gc
)
(
bench-report
'cl-bench.misc:run-fasload
"LOAD-FASL"
20
))
#-
(
or
lispworks-personal-edition
ecl
)
#-
(
or
lispworks-personal-edition
)
(
progn
(
format
t
"=== running #<benchmark SUM-PERMUTATIONS for 2 runs>~%"
)
(
force-output
)
...
...
@@ -56,7 +56,7 @@
(
funcall
'cl-bench.misc::setup-walk-list/seq
)
(
bench-report
'cl-bench.misc:walk-list/seq
"WALK-LIST/SEQ"
2
))
#-
(
or
lispworks-personal-edition
armedbear
poplog
)
#-
(
or
lispworks-personal-edition
armedbear
poplog
ecl-bytecmp
)
(
progn
(
format
t
"=== running #<benchmark WALK-LIST/MESS for 1 runs>~%"
)
(
force-output
)
...
...
do-interpret-script.lisp
View file @
d1806cab
...
...
@@ -33,14 +33,14 @@
(
bench-gc
)
(
bench-report
'cl-bench.misc:run-compiler
"COMPILER"
3
))
#-
(
or
gcl
armedbear
ecl
)
#-
(
or
gcl
armedbear
)
(
progn
(
format
t
"=== running #<benchmark LOAD-FASL for 20 runs>~%"
)
(
force-output
)
(
bench-gc
)
(
bench-report
'cl-bench.misc:run-fasload
"LOAD-FASL"
20
))
#-
(
or
lispworks-personal-edition
ecl
)
#-
(
or
lispworks-personal-edition
)
(
progn
(
format
t
"=== running #<benchmark SUM-PERMUTATIONS for 2 runs>~%"
)
(
force-output
)
...
...
@@ -55,7 +55,7 @@
(
funcall
'cl-bench.misc::setup-walk-list/seq
)
(
bench-report
'cl-bench.misc:walk-list/seq
"WALK-LIST/SEQ"
2
))
#-
(
or
lispworks-personal-edition
armedbear
poplog
)
#-
(
or
lispworks-personal-edition
armedbear
poplog
ecl
)
(
progn
(
format
t
"=== running #<benchmark WALK-LIST/MESS for 1 runs>~%"
)
(
force-output
)
...
...
tests.lisp
View file @
d1806cab
...
...
@@ -17,14 +17,14 @@
:group
:misc
:function
'cl-bench.misc:run-fasload
:runs
20
:disabled-for
'
(
gcl
armedbear
ecl
))
:disabled-for
'
(
gcl
armedbear
))
(
defbench
sum-permutations
:group
:misc
:long
"traversal of a large, linked, self-sharing structure"
:function
'cl-bench.misc:run-permutations
:runs
2
:disabled-for
'
(
lispworks-personal-edition
ecl
))
:disabled-for
'
(
lispworks-personal-edition
))
(
defbench
walk-list/seq
:group
:misc
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment