From 33f7f7c3f45e58933b6c2ed448f24618f089511c Mon Sep 17 00:00:00 2001 From: colin Date: Thu, 28 Nov 2024 22:31:29 -0800 Subject: print-debug tweaks --- src/protocol.lisp | 14 +++++++++++--- 1 file 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)) -- cgit v1.2.3