From 3d4f0569f2553b05db3e47fb4b6e37e51ded2c70 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= Date: Sun, 22 May 2016 17:49:54 +0200 Subject: [PATCH] add info about the machine uses the machine of the lisp which generates the report --- report/html-report.lisp | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/report/html-report.lisp b/report/html-report.lisp index d3d8f65..d09d5d4 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)) -- GitLab