Browse files

fix shadowing error in example code

Thanks to Bob Felts for pointing out the error.
  • Loading branch information...
froydnj committed Jul 2, 2012
1 parent 6443cf7 commit 91b61844b1cffd224d73232b0bab75466ab6d839
Showing with 3 additions and 3 deletions.
  1. +3 −3 doc/ironclad-doc.txt
@@ -332,14 +332,14 @@ supported. This means one can write a fairly efficient clone of the "
`md5sum` " program like so:")
-"(defun digest-sum-files (digest &rest files)
+"(defun digest-sum-files (digest-name &rest files)
(unless files
(error \"no files given to digest\"))
(loop with buffer = (make-array 8192 :element-type '(unsigned-byte 8))
- with digest = (make-array (ironclad:digest-length digest)
+ with digest = (make-array (ironclad:digest-length digest-name)
:element-type '(unsigned-byte 8))
for file in files
- for digester = (ironclad:make-digest digest)
+ for digester = (ironclad:make-digest digest-name)
then (reinitialize-instance digester)
do (ironclad:digest-file digester file :buffer buffer :digest digest)
(format t \"~A ~A~%\" (file-namestring file)

0 comments on commit 91b6184

Please sign in to comment.