From a5e2232edc0415dc16643aaeaafe91bdb1d18b59 Mon Sep 17 00:00:00 2001
From: Piotr Szarmanski
Date: Sat, 5 Aug 2023 18:18:34 +0200
Subject: Remove static buffer.

---
 extra/http/server.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'extra/http/server.lisp')

diff --git a/extra/http/server.lisp b/extra/http/server.lisp
index 0ad85e4..97d45d0 100644
--- a/extra/http/server.lisp
+++ b/extra/http/server.lisp
@@ -47,7 +47,7 @@
     (let ((path (merge-pathnames directory (string-upcase (quri:urn-nss uri)))))
       (unless (uiop:file-exists-p path)
         (with-open-file (f path  :direction :output :if-does-not-exist :create :element-type 'octet)
-          (alexandria:copy-stream body f :element-type 'octet :buffer #.(make-octet-vector 4096)))))
+          (alexandria:copy-stream body f :element-type 'octet))))
     '(200 (:content-type "text/plain") ("Unauthorized."))))
 
 
-- 
cgit v1.2.3