From a6d0a11ca368f1ab7cd3dd1000f63f60d555617a Mon Sep 17 00:00:00 2001
From: Eitaro Fukamachi <e.arrows@gmail.com>
Date: Thu, 29 Aug 2019 15:57:49 +0900
Subject: [PATCH] Fix Lack.Request not to raise an error when there's the
 request body without Content-Type header. (fixes #39)

---
 src/request.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/request.lisp b/src/request.lisp
index 4d41458..abe32f7 100644
--- a/src/request.lisp
+++ b/src/request.lisp
@@ -101,7 +101,8 @@
 
         ;; POST parameters
         (when (and (null body-parameters)
-                   (request-has-body-p req))
+                   (request-has-body-p req)
+                   (stringp content-type))
           (let ((parsed (http-body:parse content-type content-length raw-body)))
             (when (and (consp parsed)
                        (every #'consp parsed))