MD5: Difference between revisions
Content deleted Content added
Line 326:
<lang lisp>(require #+sbcl 'sb-md5 #-sbcl 'md5)
(defun octets->letters (octet-vector)
(with-output-to-string (stream)
(loop for i across octet-vector
do (flet ((foo (x) (
(princ (foo 8) stream)
(princ (foo 4) stream)))))
|