From 4dc0b96bd101f34092a3ff5cd5864fc8fe7830c1 Mon Sep 17 00:00:00 2001 From: Piotr Szarmanski Date: Mon, 24 Oct 2022 11:12:16 +0200 Subject: Add tests for file-backend and hash-backend. --- src/eris-decode.lisp | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'src') diff --git a/src/eris-decode.lisp b/src/eris-decode.lisp index 3d93312..806bd37 100644 --- a/src/eris-decode.lisp +++ b/src/eris-decode.lisp @@ -228,14 +228,13 @@ cache. It may be NIL to turn off caching entirely." :capacity cache-capacity :table (make-hash-table :size (1+ cache-capacity) :test #'equalp)) (reference key nonce) - (declare (type octet-vector reference key)) + (declare (type octet-vector reference key nonce)) (let ((block (execute-fetch-function fetch-function reference))) (declare (type octet-vector block)) (hash-check block reference) (decrypt-block block key nonce))) (lambda (reference key nonce) - (declare (type octet-vector reference key) - (optimize (debug 3))) + (declare (type octet-vector reference key nonce)) (let ((block (execute-fetch-function fetch-function reference))) (declare (type octet-vector block)) (hash-check block reference) -- cgit v1.2.3