[Openmcl-cvs-notifications] r14753 - in /release/1.6/source: ./ library/cover.lisp

[gz at clozure.com]

Author: gz
Date: Fri Apr 29 10:32:06 2011
New Revision: 14753

Log:
Merge another code coverage fix (r14572)

Modified:
    release/1.6/source/   (props changed)
    release/1.6/source/library/cover.lisp

Propchange: release/1.6/source/
---------------------------------------------------------------------------=
---
--- svn:mergeinfo (original)
+++ svn:mergeinfo Fri Apr 29 10:32:06 2011
@@ -4,4 +4,4 @@
 /branches/rme-logops:13875-13886
 /branches/working-0711/ccl:7970-13192,13197-13198,13202,13208,13214,13235-=
13236,13239,13263,13277-13278,13290,13293-13294,13302-13306,13331-13332,133=
39,13361-13364,13379,13383,13386,13388,13409,13435-13436,13438,13440-13442,=
13460-13461,13465,13467,13476,13487,13490,13492-13493,13502-13528,13545-135=
47,13549,13557-13558
 /release/1.5/source:13667
-/trunk/source:14361-14404,14422-14423,14425-14432,14435,14437-14438,14440-=
14441,14444-14445,14451,14457,14460-14464,14472,14476-14479,14482-14484,144=
94-14495,14519,14550,14559,14662,14690,14692,14703,14717-14718
+/trunk/source:14361-14404,14422-14423,14425-14432,14435,14437-14438,14440-=
14441,14444-14445,14451,14457,14460-14464,14472,14476-14479,14482-14484,144=
94-14495,14519,14550,14559,14662,14690,14692,14703,14717-14718,14752

Modified: release/1.6/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
--- release/1.6/source/library/cover.lisp (original)
+++ release/1.6/source/library/cover.lisp Fri Apr 29 10:32:06 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;