diff options
| -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 23955b5..e79456f 100644 --- a/src/defendpoint.lisp +++ b/src/defendpoint.lisp @@ -204,11 +204,11 @@ PART is either :then (cons :var (second <var>)) :note "SYMBOL bound to the instance during the handler protocol.") (<authenticate> - :match (:seq (:= :authenticate) (:item)) + :match (:seq (:or= :authenticate :authenticated-when) (:item)) :then (cons :authenticate (second <authenticate>)) :note "Body form of authenticate method.") (<authorize> - :match (:seq (:= :authorize) (:item)) + :match (:seq (:or= :authorize :authorized-when) (:item)) :then (cons :authorize (second <authorize>)) :note "Body form of authorize method.") (<handle> |