diff options
| author | colin <colin@cicadas.surf> | 2024-08-23 06:43:24 -0700 |
|---|---|---|
| committer | colin <colin@cicadas.surf> | 2024-08-23 06:43:24 -0700 |
| commit | 33046c1a1cec3819245f13d960c6072aa73aee65 (patch) | |
| tree | 219ad63e5a008e4fb751d7e617f2f24b4971bd6a | |
| parent | a5aa15df43cb35bd8bc102bcded881cbdf079309 (diff) | |
Extend language of defendpoint to make it clearer
| -rw-r--r-- | src/defendpoint.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/defendpoint.lisp b/src/defendpoint.lisp index 72c536e..23955b5 100644 --- a/src/defendpoint.lisp +++ b/src/defendpoint.lisp @@ -164,7 +164,7 @@ PART is either :if path-part-p :note "REGEX or (KWD REGEX &optional PARSER)") (<parameters> - :match (:seq (:= :parameters) (:+ <param>)) + :match (:seq (:or= :parameters :requirements) (:+ <param>)) :then (cons :parameters (second <parameters>)) :note "Request parameters - will signal an error if missing from the user request") (<param> @@ -172,7 +172,7 @@ PART is either :if parameter-spec-p :note "(NAME TYPE &optional DOCSTRING)") (<properties> - :match (:seq (:= :properties) (:+ <prop>)) + :match (:seq (:or= :properties :state) (:+ <prop>)) :then (cons :properties (second <properties>)) :note "Values that should be filled-in during authentication or authorization") (<prop> |