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

add info about the machine

uses the machine of the lisp which generates the report
parent 8b6572f1
...@@ -25,7 +25,10 @@ ...@@ -25,7 +25,10 @@
(with-open-file (s #P"/tmp/bench.html" :direction :output :if-exists :supersede) (with-open-file (s #P"/tmp/bench.html" :direction :output :if-exists :supersede)
(cl-who:with-html-output (s nil :prologue t) (cl-who:with-html-output (s nil :prologue t)
(cl-who:htm (cl-who:htm
(:p "hello world!") (:p (cl-who:fmt "~a ~a ~a"
(:table (:table
:border 1 :border 1
(:tr (:td :style "max-width: 100px;") (:tr (:td :style "max-width: 100px;")
...@@ -52,7 +55,6 @@ ...@@ -52,7 +55,6 @@
(cell-style (color) (cell-style (color)
(format nil "background-color: ~A;" color))) (format nil "background-color: ~A;" color)))
(cl-who:htm (:td :style (cell-style (cell-color r best)) (cl-who:htm (:td :style (cell-style (cell-color r best))
(when r (cl-who:str r)))) (when (and r (/= r -1))
))) (cl-who:str r))))))))))))))
benchmarks)) benchmarks))
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