Commit d14c364e authored by Daniel Kochmański's avatar Daniel Kochmański

tests: add disabled for ecl-bytecmp

Also fix error in html-report
parent 638ac62d
......@@ -38,11 +38,12 @@
(dolist (b benchmarks)
(let* ((results (loop :for i in implementations
:collect (let* ((id (cdr (assoc i data :test #'string=)))
(ir (third (assoc b id :test #'string=))))
(ir #|cons is fifth|#
(third (assoc b id :test #'string=))))
(if (numberp ir)
ir
-1))))
(best (apply #'min (remove-if #'minusp results))))
(best (apply #'min (or (remove-if #'minusp results) '(0)))))
(cl-who:htm
(:tr (:th (cl-who:str b))
(dolist (r results)
......
......@@ -32,7 +32,7 @@
:setup 'cl-bench.misc::setup-walk-list/seq
:function 'cl-bench.misc:walk-list/seq
:runs 2
:disabled-for '(:lispworks-personal-edition :armedbear :ALLEGRO-CL-EXPRESS))
:disabled-for '(:lispworks-personal-edition :armedbear :allegro-cl-express :ecl-bytecmp))
(defbench walk-list/mess
:group :misc
......@@ -40,7 +40,7 @@
:setup 'cl-bench.misc::setup-walk-list/mess
:function 'cl-bench.misc:walk-list/mess
:runs 1
:disabled-for '(:lispworks-personal-edition :armedbear :poplog :ALLEGRO-CL-EXPRESS :clasp))
:disabled-for '(:lispworks-personal-edition :armedbear :poplog :allegro-cl-express :clasp :ecl-bytecmp))
(defbench boyer
:group :gabriel
......
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