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
d697492
..
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