- `(progn
- ,@(loop for i upfrom 0
- for (string . expected-result) in test-list
- collect
- `(deftest ,(intern (format nil "SB-MD5.RFC1321.~A" i))
- (string= (format nil
- "~(~{~2,'0X~}~)"
- (coerce (md5sum-string ,string :external-format :ascii) 'list))
- ,expected-result)
- t)))))
+ `(progn
+ ,@(loop for i upfrom 0
+ for (string . expected-result) in test-list
+ collect
+ `(deftest ,(intern (format nil "SB-MD5.RFC1321.~A" i))
+ (string= (format nil
+ "~(~{~2,'0X~}~)"
+ (coerce (md5sum-string ,string :external-format :ascii) 'list))
+ ,expected-result)
+ t)))))