esthlos-v_keccak 1 (in-package "CL-KECCAK")
esthlos-v_keccak 2
esthlos-v_keccak 3 ;; the number of bits in a byte, arch-specific
esthlos-v_keccak 4 (defconstant +bits-in-byte+ 8)
esthlos-v_keccak 5
esthlos-v_keccak 6 ;; the keccak L parameter, takes a value in {1,2,3,4,5,6}
esthlos-v_keccak 7 (defconstant +keccak_L+ 6)
esthlos-v_keccak 8
esthlos-v_keccak 9 ;; the number of bits absorbed into the sponge on each pass
esthlos-v_keccak 10 (defconstant +bitrate+ 1344)
esthlos-v_keccak 11
esthlos-v_keccak 12 ;; the desired number of output bits
esthlos-v_keccak 13 (defconstant +output-bits+ 512)