diff options
| -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) |