From 855e79b7ffa37ac64de51defa18104ed897576b3 Mon Sep 17 00:00:00 2001
From: Piotr Szarmanski
Date: Fri, 30 Dec 2022 09:00:15 +0100
Subject: Initial buffer reuse encoding commit

---
 src/file-backend.lisp | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'src/file-backend.lisp')

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
-- 
cgit v1.2.3