diff options
| -rw-r--r-- | src/protocol.lisp | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/src/protocol.lisp b/src/protocol.lisp index dfee2e6..3a4f3ec 100644 --- a/src/protocol.lisp +++ b/src/protocol.lisp @@ -170,13 +170,19 @@ INITARG values MUST BE A KEYWORD.") this. Called before handling, should be used to supply user-identifying data to the endpoint instance that might be needed by the handle function.") - (:method ((ep t)) t)) + (:method ((ep t)) t) + (:method :around ((ep t)) + (debug-print :authenticating ep) + (call-next-method))) (defgeneric authorize (endpoint) (:documentation "Returns a boolean. Any endpoint requiring special ownership permissions should implement this. Called before handling and after authenticate.") - (:method ((ep t)) t)) + (:method ((ep t)) t) + (:method :around ((ep t)) + (debug-print :authorizing ep) + (call-next-method))) (defgeneric handle (endpoint) (:documentation "The beef of the endpoint handling protocol. @@ -197,8 +203,10 @@ successfully. This method should return data to be sent back to the client and MUST be implemented for every endpoint class.") (:method :around ((endpoint t)) - (debug-print :handle endpoint) + (debug-print :handling endpoint) (prog1 (call-next-method) + (debug-print :content-type (http:content-type*) + :content-length (http:content-length*)) (debug-print))) (:method :before ((endpoint t)) |