(let* ((msg (ironclad:ascii-string-to-byte-array "hello"))
       (key (ironclad:ascii-string-to-byte-array "password"))
       (out (copy-seq msg)))
  (ironclad:encrypt (ironclad:make-cipher :blowfish :key key :mode :ecb)
                    msg out)
  (equalp msg out)) => T