summaryrefslogtreecommitdiff
path: root/src/eris-decode.lisp
diff options
context:
space:
mode:
authorPiotr Szarmanski2022-10-24 11:12:16 +0200
committerPiotr Szarmanski2022-10-24 11:12:16 +0200
commit4dc0b96bd101f34092a3ff5cd5864fc8fe7830c1 (patch)
tree4ba959babd300fd85598d945e48a669025a2ad2d /src/eris-decode.lisp
parentc4b44fb12108c0764d1fa4ef1c37f11a54379343 (diff)
Add tests for file-backend and hash-backend.
Diffstat (limited to 'src/eris-decode.lisp')
-rw-r--r--src/eris-decode.lisp5
1 files changed, 2 insertions, 3 deletions
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)