From bf05012ba5fb6ec1c4918de8208a5a3b04427aa9 Mon Sep 17 00:00:00 2001 From: colin Date: Sat, 23 Nov 2024 08:39:27 -0800 Subject: Better error in route-to --- src/endpoint.lisp | 3 ++- src/protocol.lisp | 4 ---- 2 files changed, 2 insertions(+), 5 deletions(-) (limited to 'src') diff --git a/src/endpoint.lisp b/src/endpoint.lisp index cb71658..8189572 100644 --- a/src/endpoint.lisp +++ b/src/endpoint.lisp @@ -243,7 +243,8 @@ extractors." part))) (format nil "~{~a~}" (loop :for part :in build-parts :when (keywordp part) - :do (assert (getf kwargs part) (kwargs) "path needs ~s" part) + :do (assert (getf kwargs part) (kwargs) + "path to ~s needs ~s" (class-name class) part) :and :collect (getf kwargs part) :else :collect part)))))) diff --git a/src/protocol.lisp b/src/protocol.lisp index cfee809..87d1651 100644 --- a/src/protocol.lisp +++ b/src/protocol.lisp @@ -83,10 +83,6 @@ that the request has insufficient permissions to evoke the endpoint handler. ")) (t (http:abort-request-handler))))) -(defvar *debugging* nil - "If T, conditions signalled during request handling will invoke the - debugger.") - (defmethod http:acceptor-dispatch-request :around ((acceptor http:acceptor) request) (handler-case (call-next-method) (error (err) -- cgit v1.2.3