[Openmcl-cvs-notifications] r14752 - /trunk/source/library/cover.lisp

[gz at clozure.com]

Author: gz
Date: Fri Apr 29 10:20:43 2011
New Revision: 14752

Log:
List uninstrumented color in the key

Modified:
    trunk/source/library/cover.lisp

Modified: trunk/source/library/cover.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/library/cover.lisp (original)
+++ trunk/source/library/cover.lisp Fri Apr 29 10:20:43 2011
@@ -757,6 +757,7 @@
     (format html-stream "<div class=3D'st~a'>Fully covered - every single =
instruction executed</div>" $totally-covered-style)
     (format html-stream "<div class=3D'st~a'>Partly covered - entered but =
some subforms not executed</div>" $partially-covered-style)
     (format html-stream "<div class=3D'st~a'>Never entered - not a single =
instruction executed</div>" $not-executed-style)
+    (format html-stream "<div class=3D'stsource'>Uninstrumented - a form w=
hose coverage was not measured</div>")
     (format html-stream "</div><p></p>~%")
 =

     ;; Output source intertwined with acode
@@ -995,6 +996,7 @@
 *.st~a { background-color: #ffaaaa }
 *.st~a { background-color: #aaffaa }
 *.st~a { background-color: #44dd44 }
+*.stsource { background-color: #eeeeee; }
 *.key { margin: 20px; width: 88ex }
 *.source { width: 120ex; background-color: #eeeeee; padding-left: 5px;
              /* border-style: solid none none none; border-width: 1px;