diff options
Diffstat (limited to 'src/file-backend.lisp')
| -rw-r--r-- | src/file-backend.lisp | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/file-backend.lisp b/src/file-backend.lisp index 2bb8693..03e3ef7 100644 --- a/src/file-backend.lisp +++ b/src/file-backend.lisp @@ -43,7 +43,9 @@ (lambda (reference) (let* ((base32 (bytes-to-base32-unpadded reference)) (file (merge-pathnames directory base32))) - (alexandria:read-file-into-byte-vector file))) + (if (probe-file file) + (alexandria:read-file-into-byte-vector file) + (error 'missing-block :reference reference)))) output-function (lambda (block reference) (let* ((base32 (bytes-to-base32-unpadded reference)) |