From abe192b75f38ceb826deb26a001adb8a08f42d69 Mon Sep 17 00:00:00 2001
From: "Pierre R. Mai" <pmai@pmsf.de>
Date: Wed, 14 Sep 2016 16:48:31 +0200
Subject: [PATCH] Fix erroneous buffer handling in sha3-update again (fixes
 #3).

---
 sha3.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/sha3.lisp b/sha3.lisp
index 22f3f6b..6edc0e7 100755
--- a/sha3.lisp
+++ b/sha3.lisp
@@ -110,7 +110,7 @@ and `end', which must be numeric bounding-indices."
              #.*optimize-declaration*)
     ;; Handle potential remaining bytes
     (unless (zerop buffer-index)
-      (let ((remainder (- (length buffer) buffer-index))
+      (let ((remainder (- rate-bytes buffer-index))
             (length (- end start)))
         (declare (type fixnum remainder length))
         (replace buffer vector :start1 buffer-index :start2 start :end2 end)