From 618ee634557122b3b3c5012405603b28c0001d13 Mon Sep 17 00:00:00 2001 From: Piotr Szarmanski Date: Sun, 20 Nov 2022 21:47:23 +0100 Subject: Fix some compilation warnings --- src/eris.lisp | 17 ++++++++++------- 1 file changed, 10 insertions(+), 7 deletions(-) (limited to 'src/eris.lisp') diff --git a/src/eris.lisp b/src/eris.lisp index ed4a05e..91200a1 100644 --- a/src/eris.lisp +++ b/src/eris.lisp @@ -70,7 +70,7 @@ object, using the bytes from the OCTETS vector from at START." (make-instance 'reference-pair :key key :reference reference))) (defun encrypt-internal-block (input reference nonce) - (declare (type octet-vector input secret reference)) + (declare (type octet-vector input reference)) (let ((key (make-array 32 :element-type 'octet))) (ironclad:digest-sequence :blake2/256 input :digest key) ;; NOT the IETF chacha. Need to fix this by patching ironclad. Maybe. @@ -109,10 +109,13 @@ a (simple-array (unsigned-byte 8)) object." (setf (aref cap 1) (level read-capability)) (reference-pair-to-octets (reference-pair read-capability) cap 2))) -(-> octets-to-read-capability ((octet-vector 66)) read-capability) +(-> octets-to-read-capability ((octet-vector 66)) (values read-capability &optional)) (defun octets-to-read-capability (octets) "Convert the standard binary representation for ERIS read capabilities into a -read-capability object. Returns the read-capability." +read-capability object. Returns the read-capability. + +An ERIS:VERSION-MISMATCH condition may be signaled if the corresponding +versioning bytes are not supported by eris-cl." (declare (type (octet-vector 66) octets)) (let ((capability (make-instance 'read-capability))) (setf (block-size capability) @@ -134,7 +137,7 @@ read-capability object. Returns the read-capability." "urn:eris:" (bytes-to-base32-unpadded (read-capability-to-octets capability)))) -(-> urn-to-read-capability (string) read-capability) +(-> urn-to-read-capability (string) (values read-capability &optional)) (defun urn-to-read-capability (urn) "Convert a urn:eris URN string into a read-capability object." (declare (type string urn)) @@ -146,7 +149,7 @@ read-capability object. Returns the read-capability." (declare (type (octet-vector 32) reference)) (concatenate 'string "urn:blake2b:" (bytes-to-base32-unpadded reference))) -(-> block-urn-to-reference (string) (octet-vector 32)) +(-> block-urn-to-reference (string) (values (octet-vector 32) &optional)) (defun block-urn-to-reference (urn) "Convert a urn:blake2b URN string into a 32-byte block reference vector." (declare (type string urn)) @@ -220,6 +223,7 @@ guarantee that a reference is only output once.")) (eris-create-tree reference-vector block-size output-function :hash-output hash-output))) (defmethod eris-encode ((input stream) block-size output-function &key (secret null-secret) hash-output) + "This method does not handle any IO related conditions." (declare (type block-size block-size) (type function output-function) (type (octet-vector 32) secret)) @@ -236,8 +240,7 @@ guarantee that a reference is only output once.")) (defun eris-create-tree (reference-vector block-size output-function &key hash-output) (declare (type block-size block-size) - (type function output-function) - (type (octet-vector 32) secret)) + (type function output-function)) (loop with block-keys = (/ block-size 64) with level = 0 with reference-vector-l = (make-array 16 :adjustable t :fill-pointer 0) -- cgit v1.2.3