X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-md5%2Fmd5-tests.lisp;h=3e3afe806f5a183a163a048e54392ab7fad82736;hb=079ef9dad558ca07cb8178ef428bf738112174fa;hp=a14a8c57510043087ce018c25737ac4bd8df024d;hpb=4f4a1695fa74e2becf1fb87110132ad4943fac61;p=sbcl.git

diff --git a/contrib/sb-md5/md5-tests.lisp b/contrib/sb-md5/md5-tests.lisp
index a14a8c5..3e3afe8 100644
--- a/contrib/sb-md5/md5-tests.lisp
+++ b/contrib/sb-md5/md5-tests.lisp
@@ -11,7 +11,7 @@
 		   `(deftest ,(intern (format nil "SB-MD5.RFC1321.~A" i))
 		     (string= (format nil
 			       "~(~{~2,'0X~}~)"
-			       (coerce (md5sum-sequence ,string) 'list))
+			       (coerce (md5sum-string ,string :external-format :ascii) 'list))
 		      ,expected-result)
 		     t)))))
   (define-rfc1321-tests
@@ -31,7 +31,8 @@
 		   collect
 		   `(deftest ,(intern (format nil "SB-MD5.OTHER.~A" i))
 		     (string=
-		      (format nil "~(~{~2,'0X~}~)" (coerce (md5sum-sequence ,string) 'list))
+		      (format nil "~(~{~2,'0X~}~)"
+                       (coerce (md5sum-string ,string :external-format :ascii) 'list))
 		      ,expected-result)
 		     t)))))
   (define-other-tests