From fc1c70579ef183457b5aaab6790972e5b622f85a Mon Sep 17 00:00:00 2001
From: "Pierre R. Mai" <pmai@pmsf.de>
Date: Sat, 14 Sep 2013 23:57:51 +0200
Subject: [PATCH] Remove superfluous final iteration in sha3-update.

The superfluous last iteration when start = end wasn't harmful, since the
iteration body winds up as a no-op in that case anyway, but wasn't
intended or needed.
---
 sha3.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/sha3.lisp b/sha3.lisp
index 9e3ea29..ab92b49 100644
--- a/sha3.lisp
+++ b/sha3.lisp
@@ -124,7 +124,7 @@ and `end', which must be numeric bounding-indices."
         (setf (sha3-state-buffer-index state) 0
               start (+ start remainder))))
     ;; Now handle full blocks, stuff any remainder into buffer
-    (loop for block-offset of-type fixnum from start to end by rate-bytes
+    (loop for block-offset of-type fixnum from start below end by rate-bytes
           do
        (cond
          ((<= (+ block-offset rate-bytes) end)