diff options
| author | colin <colin@cicadas.surf> | 2024-05-12 14:26:33 -0700 |
|---|---|---|
| committer | colin <colin@cicadas.surf> | 2024-05-12 14:26:33 -0700 |
| commit | e7cfcf1af2a67564527597257eba753a43eb3473 (patch) | |
| tree | 4c765b3cb5adf0e5555a6148d21600a29ee5db5b | |
| parent | e1cff8d644e21bfbf8b7a76468c6c1130d4295e5 (diff) | |
Fix: parameter matcher
| -rw-r--r-- | src/defendpoint.lisp | 12 |
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))))))) |