diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/endpoint.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/endpoint.lisp b/src/endpoint.lisp index a0d8f1d..81fdf74 100644 --- a/src/endpoint.lisp +++ b/src/endpoint.lisp @@ -203,10 +203,10 @@ extractors." part)))) (setf build-parts (nreverse build-parts)) (setf (route-builder class) (lambda (kwargs) - (apply #'concatenate 'string + (format nil "~{~a~}" (loop :for part :in build-parts :when (keywordp part) - :do (assert (getf kwargs part) () "path needs ~s" part) + :do (assert (getf kwargs part) (kwargs) "path needs ~s" part) :and :collect (getf kwargs part) :else :collect part)))))) |