diff options
| -rw-r--r-- | lazybones-client.lisp | 4 |
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"))))) |