Changeset 11753

Timestamp:

Feb 20, 2009, 8:43:24 PM (11 years ago)

Author:

gz

Message:

Add missing '>' in html

File:

• branches/working-0711/ccl/library/cover.lisp (modified) (1 diff)

branches/working-0711/ccl/library/cover.lisp

@@ -719 +719 @@
   (let ((exp-counts (count-covered-sexps coverage)))
     (when html-stream
-      (format html-stream "~{<td>~:[-~;~:*~a~]</td><td>~:[-~;~:*~a~]</td><td>~:[-~;~:*~5,1f%~]</td<td>~:[-~;~:*~a~]</td><td>~:[-~;~:*~5,1f%~]</td>~}" exp-counts))
+      (format html-stream "~{<td>~:[-~;~:*~a~]</td><td>~:[-~;~:*~a~]</td><td>~:[-~;~:*~5,1f%~]</td><td>~:[-~;~:*~a~]</td><td>~:[-~;~:*~5,1f%~]</td>~}" exp-counts))
     (when stats-stream
       (format stats-stream "~{~:[~;~:*~a~],~:[~;~:*~a~],~:[~;~:*~5,1f%~],~:[~;~:*~a~],~:[~;~:*~5,1f%~],~}" exp-counts)))