Commit d1806cab authored by Daniel Kochmański's avatar Daniel Kochmański
Browse files

tests: ecl: refine scripts discrimination

parent 39829f8a
......@@ -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)
......
......@@ -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)
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment