diff options
| -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.")))) |