diff options
Diffstat (limited to 'lazybones-hunchentoot.lisp')
-rw-r--r-- | lazybones-hunchentoot.lisp | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lazybones-hunchentoot.lisp b/lazybones-hunchentoot.lisp index b87b83b..fd437e0 100644 --- a/lazybones-hunchentoot.lisp +++ b/lazybones-hunchentoot.lisp @@ -70,9 +70,10 @@ HEADER-NAME can be a keyword or a string." '("multipart/form-data" "application/x-www-form-urlencoded")) (defun pre-decoded-body-p (request) - (member (request-header :content-type request) - +hunchentoot-pre-decoded-content-types+ - :test #'string-equal)) + (let ((header (request-header :content-type request))) + (when (stringp header) + (loop for prefix in +hunchentoot-pre-decoded-content-types+ + thereis (a:starts-with-subseq prefix header))))) (defparameter +hunchentoot-methods-with-body+ '(:post :put :patch)) |