diff options
| author | Piotr Szarmanski | 2022-10-24 11:12:16 +0200 |
|---|---|---|
| committer | Piotr Szarmanski | 2022-10-24 11:12:16 +0200 |
| commit | 4dc0b96bd101f34092a3ff5cd5864fc8fe7830c1 (patch) | |
| tree | 4ba959babd300fd85598d945e48a669025a2ad2d /src/eris-decode.lisp | |
| parent | c4b44fb12108c0764d1fa4ef1c37f11a54379343 (diff) | |
Add tests for file-backend and hash-backend.
Diffstat (limited to 'src/eris-decode.lisp')
| -rw-r--r-- | src/eris-decode.lisp | 5 |
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) |