projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.15.3: Have PROBE-FILE return NIL whenever a truename can't be found.
[sbcl.git]
/
contrib
/
sb-cover
/
cover.lisp
diff --git
a/contrib/sb-cover/cover.lisp
b/contrib/sb-cover/cover.lisp
index
8a38551
..
c273b86
100644
(file)
--- a/
contrib/sb-cover/cover.lisp
+++ b/
contrib/sb-cover/cover.lisp
@@
-96,7
+96,10
@@
latter mode is generally easier to read."
(ensure-directories-exist *default-pathname-defaults*)
(maphash (lambda (k v)
(declare (ignore v))
(ensure-directories-exist *default-pathname-defaults*)
(maphash (lambda (k v)
(declare (ignore v))
- (let* ((n (substitute #\_ #\. (substitute #\_ #\/ k)))
+ (let* ((n (format nil "~(~{~2,'0X~}~)"
+ (coerce (sb-md5:md5sum-string
+ (sb-ext:native-namestring k))
+ 'list)))
(path (make-pathname :name n :type "html")))
(when (probe-file k)
(with-open-file (stream path
(path (make-pathname :name n :type "html")))
(when (probe-file k)
(with-open-file (stream path
@@
-390,9
+393,9
@@
table.summary tr.subheading td { text-align: left; font-weight: bold; padding-le
unless (member (caar record) '(:then :else))
collect (list mode
(car record)
unless (member (caar record) '(:then :else))
collect (list mode
(car record)
- (ecase (cdr record)
- ((t) 1)
- ((nil) 2)))))
+ (if (sb-c::code-coverage-record-marked record)
+ 1
+ 2))))
(:branch
(let ((hash (make-hash-table :test 'equal)))
(dolist (record records)
(:branch
(let ((hash (make-hash-table :test 'equal)))
(dolist (record records)
@@
-400,7
+403,7
@@
table.summary tr.subheading td { text-align: left; font-weight: bold; padding-le
(when (member (car path) '(:then :else))
(setf (gethash (cdr path) hash)
(logior (gethash (cdr path) hash 0)
(when (member (car path) '(:then :else))
(setf (gethash (cdr path) hash)
(logior (gethash (cdr path) hash 0)
- (ash (if (cdr record)
+ (ash (if (sb-c::code-coverage-record-marked record)
1
2)
(if (eql (car path) :then)
1
2)
(if (eql (car path) :then)