Merge pull request #64 from snmsts/fix-content-type

fix a problem content-type via header seems not working.
fukamachi · Jan 24, 2019 · 031ee99 · 031ee99
2 parents aad2389 + 5846a2a
commit 031ee99
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/backend/usocket.lisp b/src/backend/usocket.lisp
@@ -534,7 +534,7 @@
     (let* ((uri (quri:uri uri))
            (proxy (when (http-proxy-p proxy-uri) proxy))
            (content-type
-             (find :content-type headers :key #'car :test #'eq))
+             (cdr (find :content-type headers :key #'car :test #'eq)))
            (multipart-p (and (not content-type)
                              (consp content)
                              (find-if #'pathnamep content :key #'cdr)))