[change] optionals to keyword args. [fix] content-type headerHEADmain

1 files changed, 2 insertions, 2 deletions

diff --git a/lazybones-client.lisp b/lazybones-client.lisp
index 655ebc7..248507c 100644
--- a/lazybones-client.lisp
+++ b/lazybones-client.lisp
@@ -61,7 +61,7 @@ in the defun for making request to that endpoint."
 for making requests to endpoint EP."
   (format
    nil
-   "(~{~a ~} %host ~:[~;%content-type %body ~] &optional %headers %cookies)"
+   "(~{~a ~} %host &key ~:[~;%content-type %body ~] %headers %cookies)"
    (append
     (endpoint-defun-route-var-names ep)
     (endpoint-defun-query-var-names ep))
@@ -124,7 +124,7 @@ for making requests to endpoint EP."
     (if (endpoint-accepts-body-p ep)
         (list ":content %body"
               ":cookie-jar %cookies"
-              ":headers (cons (cons \"Content-Type\" %content-type) %headers)")
+              ":headers (if %content-type (cons (cons \"Content-Type\" %content-type) %headers) %headers)")
         (list ":cookie-jar %cookies"
               ":headers %headers")))))