(deftest sb-md5.md5sum-file.0
(string= (format nil "~(~{~2,'0X~}~)" (coerce (md5sum-file "/dev/null") 'list))
"d41d8cd98f00b204e9800998ecf8427e")
(deftest sb-md5.md5sum-file.0
(string= (format nil "~(~{~2,'0X~}~)" (coerce (md5sum-file "/dev/null") 'list))
"d41d8cd98f00b204e9800998ecf8427e")