diff options
| author | Piotr Szarmanski | 2023-08-05 18:18:34 +0200 |
|---|---|---|
| committer | Piotr Szarmanski | 2023-08-05 18:18:34 +0200 |
| commit | a5e2232edc0415dc16643aaeaafe91bdb1d18b59 (patch) | |
| tree | c13c28f3dbfce3fa2a4400573bfdd0edd2234700 | |
| parent | b2e9e6236dae1b27de09748b7da9448cf3f55ca7 (diff) | |
Remove static buffer.
| -rw-r--r-- | extra/http/server.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
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.")))) |