DES/DES3 implementation in Common Lisp