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
03ac9da
..
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)
@@
-473,7
+476,7
@@
The source locations are stored in SOURCE-MAP."
(cond ((sb-impl::token-delimiterp nextchar)
(cond ((eq listtail thelist)
(unless *read-suppress*
(cond ((sb-impl::token-delimiterp nextchar)
(cond ((eq listtail thelist)
(unless *read-suppress*
- (sb-impl::%reader-error
+ (sb-int:simple-reader-error
stream
"Nothing appears before . in list.")))
((sb-impl::whitespace[2]p nextchar)
stream
"Nothing appears before . in list.")))
((sb-impl::whitespace[2]p nextchar)