Merge 3704025 into 0bb74d0

fukamachi · Oct 4, 2019 · 5a0ad5a · 5a0ad5a
2 parents 0bb74d0 + 3704025
commit 5a0ad5a
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/src/request.lisp b/src/request.lisp
@@ -66,14 +66,16 @@
 
 (defun make-request (env)
   (let ((req (apply #'%make-request :env env :allow-other-keys t env)))
-    (with-slots (method uri uri-scheme) req
+    (with-slots (method uri uri-scheme content-type) req
       (unless method
         (setf method (getf env :request-method)))
       (unless uri
         (setf uri (getf env :request-uri)))
       (unless uri-scheme
         ;; for some reason, it is called url-scheme in the environment plist :(
-        (setf uri-scheme (getf env :url-scheme))))
+        (setf uri-scheme (getf env :url-scheme)))
+      (unless content-type
+        (setf content-type "application/octet-stream")))
 
     ;; Cookies
     (unless (request-cookies req)