aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorcolin <colin@cicadas.surf>2024-05-12 14:26:33 -0700
committercolin <colin@cicadas.surf>2024-05-12 14:26:33 -0700
commite7cfcf1af2a67564527597257eba753a43eb3473 (patch)
tree4c765b3cb5adf0e5555a6148d21600a29ee5db5b /src
parente1cff8d644e21bfbf8b7a76468c6c1130d4295e5 (diff)
Fix: parameter matcher
Diffstat (limited to 'src')
-rw-r--r--src/defendpoint.lisp12
1 files changed, 8 insertions, 4 deletions
diff --git a/src/defendpoint.lisp b/src/defendpoint.lisp
index ef5131b..df10967 100644
--- a/src/defendpoint.lisp
+++ b/src/defendpoint.lisp
@@ -13,14 +13,18 @@ PART is either
(and (listp part)
(or (and (= 2 (length part))
(do>
- (key str) :match= part
+ (key regex) :match= part
:when (keywordp key)
- :when (stringp str)))
+ :when (or (stringp regex)
+ (and (symbolp regex)
+ (stringp (symbol-value regex))))))
(and (= 3 (length part))
(do>
- (key str parser) :match= part
+ (key regex parser) :match= part
:when (keywordp key)
- :when (string str)
+ :when (or (stringp regex)
+ (and (symbolp regex)
+ (stringp (symbol-value regex))))
:when (symbolp parser)
(fboundp parser)))))))