Merge branch 'no-allocate-buffers'

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