report: improve html tables

report/html-report.lisp

@@ -43,15 +43,16 @@
               (:tr (:th (cl-who:str b))
                    (dolist (r results)
                      (flet ((cell-color (value best)
-                                    (cond ((> value (* 4 best)) "#b4b")
-                                          ((> value (* 2 best)) :red)
-                                          ((> value (* 1.6 best)) :orange)
-                                          ((> value (* 1.25 best)) "#4b4")
-                                          ((<= value (* 1.25 best)) :green)))
+                              (cond ((= value -1) "#fff")
+                                    ((> value (* 4 best)) "#b4b")
+                                    ((> value (* 2 best)) :red)
+                                    ((> value (* 1.6 best)) :orange)
+                                    ((> value (* 1.25 best)) "#4b4")
+                                    ((<= value (* 1.25 best)) :green)))
                             (cell-style (color)
                               (format nil "background-color: ~A;" color)))
                        (cl-who:htm (:td :style (cell-style (cell-color r best))
-                                        (cl-who:str r)))
+                                        (when r (cl-who:str r))))
                        )))
               )))))))
     benchmarks))