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

output: report to the output/report.html file

parent d888544d
......@@ -22,7 +22,8 @@
(let* ((data (read-benchmarks))
(implementations (mapcar #'car data))
(benchmarks (reverse (mapcar #'first (cdr (first data))))))
(with-open-file (s #P"/tmp/bench.html" :direction :output :if-exists :supersede)
(with-open-file (s (merge-pathnames "report.html" *output-dir*)
:direction :output :if-exists :supersede)
(cl-who:with-html-output (s nil :prologue t)
(cl-who:htm
(:p (cl-who:fmt "~a ~a ~a"
......
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