hiro/lack
1
0
Fork 0
mirror of https://github.com/vale981/lack synced 2025-03-05 17:31:39 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix lack.test's request to work in case when 'content' is not a cons.

Browse source
This commit is contained in:
Eitaro Fukamachi 2018-10-26 22:49:35 +09:00
parent 2a9fc540cf
commit 4dae26e752
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/test.lisp
View file

@ -41,7 +41,8 @@
(when content (when content
(let ((content-type (or (cdr (assoc "content-type" headers :test #'string-equal)) (let ((content-type (or (cdr (assoc "content-type" headers :test #'string-equal))
(if (find-if #'pathnamep content :key #'cdr) (if (and (consp content)
(find-if #'pathnamep content :key #'cdr))
"multipart/form-data" "multipart/form-data"
"application/x-www-form-urlencoded")))) "application/x-www-form-urlencoded"))))
(if (assoc "content-type" headers :test #'string-equal) (if (assoc "content-type" headers :test #'string-equal)