diff options
| -rw-r--r-- | src/client/dexador/generate.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/client/dexador/generate.lisp b/src/client/dexador/generate.lisp index dd4652c..9257d72 100644 --- a/src/client/dexador/generate.lisp +++ b/src/client/dexador/generate.lisp @@ -54,7 +54,7 @@ `(defun ,(class-name class) (,host ,@args &rest ,dexador-kwargs) (apply #',dexador-fn - (concatenate 'string ,host ,@parts) + (format nil "~a~{~a~}" ,host (list ,@parts)) ,@(when reqbody (list :content reqbody)) ,dexador-kwargs)))) |