diff --git a/report/html-report.lisp b/report/html-report.lisp index d3d8f65f53ab32888dd0e2cfeba5e7af8231c441..d09d5d41be392d97d32cf4efe6714d13c5caec32 100644 --- a/report/html-report.lisp +++ b/report/html-report.lisp @@ -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) (cl-who:htm - (:p "hello world!") + (:p (cl-who:fmt "~a ~a ~a" + (machine-type) + (machine-version) + (machine-instance))) (:table :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)))))))))))))) benchmarks))