1.1--- a/lisp/std/num/leb128.lisp	Sat Jul 27 00:40:29 2024 -0400
     1.2+++ b/lisp/std/num/leb128.lisp	Sun Jul 28 20:49:47 2024 -0400
     1.3@@ -88,7 +88,7 @@
     1.4          (incf in))
     1.5     ret))
     1.6 
     1.7-(declaim (ftype (function ((vector unsigned-byte) &optional t) integer) decode-uleb128))
     1.8+(declaim (ftype (function (vector &optional t) integer) decode-uleb128))
     1.9 (defun decode-uleb128 (bits &optional (start 0))
    1.10   "Decode an unsigned integer from ULEB128 byte array."
    1.11   (let ((result 0) (shift 0) (curr) (counter 0))