More complete debugging of request lifecycleHEADmain

1 files changed, 3 insertions, 3 deletions

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*)