diff options
Diffstat (limited to 'src/endpoint.lisp')
| -rw-r--r-- | src/endpoint.lisp | 6 |
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*) |