aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/endpoint.lisp4
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))))))