diff options
author | Colin Okay <okay@toyful.space> | 2022-02-14 11:11:02 -0600 |
---|---|---|
committer | Colin Okay <okay@toyful.space> | 2022-02-14 11:11:02 -0600 |
commit | fcb4feb0bed7cd27e6910062cbaa5103ee4c8d3f (patch) | |
tree | ee3b4ec88dee9a0328962f6549caa8186a4c1ce9 | |
parent | 3f16dc6322f06c50c42311938ff2fcd025ef3199 (diff) |
duh
-rw-r--r-- | lazybones-client.asd | 2 | ||||
-rw-r--r-- | lazybones-client.lisp | 10 |
2 files changed, 5 insertions, 7 deletions
diff --git a/lazybones-client.asd b/lazybones-client.asd index b9dd4cb..8be141e 100644 --- a/lazybones-client.asd +++ b/lazybones-client.asd @@ -2,7 +2,7 @@ :description "Generate client functions for a LAZYBONES:APP instance" :author "Colin Okay <okay@toyful.space>" :license "AGPLv3" - :version "0.1.3" + :version "0.1.4" :serial t :depends-on (#:lazybones) :components ((:file "lazybones-client"))) diff --git a/lazybones-client.lisp b/lazybones-client.lisp index e3ad347..9945642 100644 --- a/lazybones-client.lisp +++ b/lazybones-client.lisp @@ -97,12 +97,10 @@ COOKIES should be an instance of CL-COOKIE:COOKIE-JAR. Defaults to (lambda (x) (intern (symbol-name (first x)))) (lazybones::endpoint-params ep))) (dex-fn - (intern (symbol-name (lazybones::endpoint-method ep)) :dexador)) - (req-string - (gensym))) + (intern (symbol-name (lazybones::endpoint-method ep)) :dexador))) `(defun ,defun-name (,@vars ,@(when qparams (cons '&key qparams))) ,(lazybones::endpoint-documentation ep) - (let ((,req-string + (let ((req-string (apply #'concatenate 'string lazybones-client.shared:*host* @@ -110,8 +108,8 @@ COOKIES should be an instance of CL-COOKIE:COOKIE-JAR. Defaults to (when (or ,@qparams) (list "?" ,@(params-to-query-string qparams)))))) (if lazybones-client.shared:*body* - (,dex-fn ,req-string :content lazybones-client.shared:*body* :cookie-jar lazybones-client.shared:*cookies* :headers lazybones-client.shared:*headers*) - (,dex-fn ,req-string :cookie-jar lazybones-client.shared:*cookies* :headers lazybones-client.shared:*headers*)))))) + (,dex-fn req-string :content lazybones-client.shared:*body* :cookie-jar lazybones-client.shared:*cookies* :headers lazybones-client.shared:*headers*) + (,dex-fn req-string :cookie-jar lazybones-client.shared:*cookies* :headers lazybones-client.shared:*headers*)))))) (defun generate-client-functions-for-app (app) |