[Sbcl-commits] CVS: sbcl/contrib/sb-cover cover.lisp, 1.7, 1.8 sb-cover.asd, 1.1, 1.2

[Richard M K. <kr...@us...>]

Update of /cvsroot/sbcl/sbcl/contrib/sb-cover
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv10006/contrib/sb-cover

Modified Files:
	cover.lisp sb-cover.asd 
Log Message:
1.0.13.53: Minor changes to SB-COVER, SB-MD5 tests for Win32

* Have SB-COVER use md5sums of filenames for URLs.

* Have the test of SB-MD5:MD5SUM-FILE take the md5sum of a fresh empty
  file, rather /dev/null or NUL, so that the test is independent of
  any other limitations in CL:OPEN on Windows.




Index: cover.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/contrib/sb-cover/cover.lisp,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- cover.lisp	2 Jan 2008 23:07:15 -0000	1.7
+++ cover.lisp	23 Jan 2008 14:42:36 -0000	1.8
@@ -96,7 +96,10 @@
     (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

Index: sb-cover.asd
===================================================================
RCS file: /cvsroot/sbcl/sbcl/contrib/sb-cover/sb-cover.asd,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- sb-cover.asd	3 May 2007 03:27:56 -0000	1.1
+++ sb-cover.asd	23 Jan 2008 14:42:36 -0000	1.2
@@ -3,6 +3,7 @@
 (defsystem sb-cover
     #+sb-building-contrib :pathname
     #+sb-building-contrib "SYS:CONTRIB;SB-COVER;"
+    :depends-on (sb-md5)
     :components ((:file "cover")))
 
 (defsystem sb-cover-tests