Nathan Froyd has written a CL implementation of this Cryptography code tailored for use with CMUCL and SBCL: see sb-sha1
Ironclad includes a portable and tuned implementation of SHA1