From a5aa15df43cb35bd8bc102bcded881cbdf079309 Mon Sep 17 00:00:00 2001 From: colin Date: Tue, 20 Aug 2024 21:50:21 -0700 Subject: Fix: allow variables in to defendpoint route parts --- src/defendpoint.lisp | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'src/defendpoint.lisp') diff --git a/src/defendpoint.lisp b/src/defendpoint.lisp index 16f33a8..72c536e 100644 --- a/src/defendpoint.lisp +++ b/src/defendpoint.lisp @@ -10,6 +10,8 @@ PART is either (KEYWORD STRING) (KEYWORD STRING FUNCTION-NAME)" (or (stringp part) + (and (symbolp part) + (not (keywordp part))) ; for variables (and (listp part) (or (and (= 2 (length part)) (do> @@ -87,7 +89,8 @@ PART is either (reduce #'union supers :key #'class-slot-names :initial-value nil))) (route-parts (loop :for part :in pathspec - :when (stringp part) + :when (or (stringp part) + (and (symbolp part) (not (keywordp part)))) :collect part :else :collect (second part))) -- cgit v1.2.3