Fix erroneous buffer handling in sha3-update again (fixes #3).

2025-12-21 15:24:28 +01:00 · 2016-09-14 16:48:31 +02:00
parent e57d7c32cd
commit abe192b75f
1 changed files with 1 additions and 1 deletions
--- 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)