From dda37d6f9f40d573776ac4bb6abe12adb8f33c47 Mon Sep 17 00:00:00 2001 From: colin Date: Fri, 29 Nov 2024 07:23:09 -0800 Subject: More complete debugging of request lifecycle --- src/endpoint.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/endpoint.lisp') diff --git a/src/endpoint.lisp b/src/endpoint.lisp index eeb536e..c8f1b22 100644 --- a/src/endpoint.lisp +++ b/src/endpoint.lisp @@ -373,7 +373,7 @@ the ;." 1. in path extractors 2. in query parameters 3. in the request body." - (debug-print :instantiate-endpoint (class-name class) args) + (debug-print :collecting-initargs) (let* ((extracted-args (process-extractors class)) @@ -389,7 +389,7 @@ the ;." (reduce #'merge-plists (list extracted-args params-args body-args))))) - (debug-print :initargs-collected collected-args) + (debug-print :using-initargs collected-args) (apply #'make-instance class collected-args))) (defun build-handler (class) @@ -404,7 +404,7 @@ the ;." (content-type (content-type class))) (lambda () - (let ((*debug-indent* 0)) + (with-debug-extent () (debug-print (http:request-method*) (http:request-uri*) -- cgit v1.2.3