X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-cover%2Fcover.lisp;fp=contrib%2Fsb-cover%2Fcover.lisp;h=c273b8609925d66e4218d5970e3abf6e5af2495e;hb=b8f49ceae4a3b513de21f385bb784729d2ddff3f;hp=d697492a6c2b615cec95ba58ebafc46b58cd7290;hpb=d58755f983a38d647afa4db4df1f9e8b5cc13b8f;p=sbcl.git

diff --git a/contrib/sb-cover/cover.lisp b/contrib/sb-cover/cover.lisp
index d697492..c273b86 100644
--- 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))
-               (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