diff options
| -rw-r--r-- | src/defendpoint.lisp | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/defendpoint.lisp b/src/defendpoint.lisp index dd39368..ef5131b 100644 --- a/src/defendpoint.lisp +++ b/src/defendpoint.lisp @@ -198,9 +198,11 @@ PART is either :note "SYMBOL bound to the instance during the handler protocol.") (<authenticate> :match (:seq (:= :authenticate) (:item)) + :then (cons :authenticate (second <authenticate>)) :note "Body form of authenticate method.") (<authorize> :match (:seq (:= :authorize) (:item)) + :then (cons :authorize (second <authorize>)) :note "Body form of authorize method.") (<handle> :match (:seq (:= :handle) (:item)) |