diff options
| author | colin <colin@cicadas.surf> | 2024-11-23 08:39:27 -0800 |
|---|---|---|
| committer | colin <colin@cicadas.surf> | 2024-11-23 08:39:27 -0800 |
| commit | bf05012ba5fb6ec1c4918de8208a5a3b04427aa9 (patch) | |
| tree | e3f588ae789318e259d78cf0dbc75f55ab00f7de | |
| parent | 0281b662f1153c0ef8cb34c373aa75b5692a515d (diff) | |
Better error in route-to
| -rw-r--r-- | src/endpoint.lisp | 3 | ||||
| -rw-r--r-- | src/protocol.lisp | 4 |
2 files changed, 2 insertions, 5 deletions
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) |