summaryrefslogtreecommitdiff
path: root/src/file-backend.lisp
diff options
context:
space:
mode:
authorPiotr Szarmanski2022-12-30 09:00:15 +0100
committerPiotr Szarmanski2022-12-30 09:00:15 +0100
commit855e79b7ffa37ac64de51defa18104ed897576b3 (patch)
treea5dea5b592e40c20308d428e489bc57eb3c7cdda /src/file-backend.lisp
parent618ee634557122b3b3c5012405603b28c0001d13 (diff)
Initial buffer reuse encoding commit
Diffstat (limited to 'src/file-backend.lisp')
-rw-r--r--src/file-backend.lisp7
1 files changed, 4 insertions, 3 deletions
diff --git a/src/file-backend.lisp b/src/file-backend.lisp
index 03e3ef7..1a1c5b0 100644
--- a/src/file-backend.lisp
+++ b/src/file-backend.lisp
@@ -51,9 +51,10 @@
(let* ((base32 (bytes-to-base32-unpadded reference))
(file (merge-pathnames directory base32)))
(unless (probe-file file)
- (alexandria:write-byte-vector-into-file block file)))))))
+ (alexandria:write-byte-vector-into-file block file)))
+ block))))
-(defmethod fetch-read-capability (read-capability (backend file-backend) &key &allow-other-keys)
+(defmethod fetch-data (read-capability (backend file-backend) &key &allow-other-keys)
(declare (type read-capability read-capability))
(with-slots (fetch-function) backend
(eris-decode read-capability fetch-function)))
@@ -65,7 +66,7 @@
(if (> (etypecase input
(stream (file-length input))
(vector (length input)))
- 16384)
+ (* 2 16384))
32kib
1kib)
output-function