From 1cf6e6ce7bd8a9daea67a06c4f405d2fd27dcf3a Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Fri, 19 Aug 2022 20:17:58 -0500 Subject: [change] optionals to keyword args. [fix] content-type header --- lazybones-client.lisp | 4 ++-- 1 file 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"))))) -- cgit v1.2.3