From 1e4235bb162a44bc9474c2fe4851724c41d827a6 Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Sun, 5 May 2024 07:24:40 -0700
Subject: Fix: route-builder constructor; Modify: dice roller [example]

---
 src/endpoint.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/endpoint.lisp')

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))))))
-- 
cgit v1.2.3