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 @@
(with-open-file (s #P"/tmp/bench.html" :direction :output :if-exists :supersede)
(cl-who:with-html-output (s nil :prologue t)
(:p "hello world!")
(:p (cl-who:fmt "~a ~a ~a"
:border 1
(:tr (:td :style "max-width: 100px;")
......@@ -52,7 +55,6 @@
(cell-style (color)
(format nil "background-color: ~A;" color)))
(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))))))))))))))
Supports Markdown
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