diff options
| author | colin <colin@cicadas.surf> | 2024-05-05 07:24:40 -0700 |
|---|---|---|
| committer | colin <colin@cicadas.surf> | 2024-05-05 07:24:40 -0700 |
| commit | 1e4235bb162a44bc9474c2fe4851724c41d827a6 (patch) | |
| tree | 103f3cef9fed93b538db177062ad783cfa9d4f4b /src/endpoint.lisp | |
| parent | 57afcdd8b437b3ca9b66126db966d07ed751ed15 (diff) | |
Fix: route-builder constructor; Modify: dice roller [example]
Diffstat (limited to 'src/endpoint.lisp')
| -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)))))) |