# Pastebin I2iL1tl5
(let ((*print-base* 16)
      (*print-pretty* nil))
  (format t "My md5      : ~a~%" (coerce (core:digest-md5 (list (core:make-simple-vector-byte8-from-base-string "a"))) 'simple-vector))
  (format t "Ironclad md5: ~a~%" (coerce (let ((digester (ironclad:make-digest :md5)))
                                           (ironclad:update-digest digester (core:make-simple-vector-byte8-from-base-string "a"))
                                           (ironclad:produce-digest digester)) 'simple-vector)))