diff -x .git -x '*html' -ruN ironclad_0.33.0/src/digests/sha512.lisp ironclad_git/src/digests/sha512.lisp
--- ironclad_0.33.0/src/digests/sha512.lisp 6cca62de4cdcba32a07e7e0a5d3c8f0228c32468c6f062d241941b8d897f0ac02148b41a8a593d7f9f859bd30756722a755e81b32e53ad28ecf3270371c97e5b
+++ ironclad_git/src/digests/sha512.lisp c11b0d7fd6fa09cc89008ac09414831cd1471b142ac4ee9fc73778bddd06bec3f33932097e271782026c1820587568607bc72bf2182f5309bdfd4c015fa914fe
@@ -185,7 +185,7 @@
(type (simple-array (unsigned-byte 64) (80)) block)
(type (simple-array (unsigned-byte 8) (128)) buffer))
(setf (aref buffer buffer-index) #x80)
- (when (> buffer-index 119)
+ (when (> buffer-index 111)
(loop for index of-type (integer 0 128)
from (1+ buffer-index) below 128
do (setf (aref buffer index) #x00))
@@ -195,7 +195,7 @@
(loop for index of-type (integer 0 16)
from 0 below 16
do (setf (aref block index) #x00000000)))
- (when (<= buffer-index 119)
+ (when (<= buffer-index 111)
(loop for index of-type (integer 0 128)
from (1+ buffer-index) below 128
do (setf (aref buffer index) #x00))