diff options
| author | colin <colin@cicadas.surf> | 2024-11-28 08:26:56 -0800 |
|---|---|---|
| committer | colin <colin@cicadas.surf> | 2024-11-28 08:26:56 -0800 |
| commit | 3e9649aad509ff6e7fd7e7e4cd8a87b154737443 (patch) | |
| tree | 4b88e335b99abd1461a9d9e28ed0150191d38447 | |
| parent | bf05012ba5fb6ec1c4918de8208a5a3b04427aa9 (diff) | |
export toggle-debugging function
| -rw-r--r-- | src/package.lisp | 4 | ||||
| -rw-r--r-- | src/protocol.lisp | 3 |
2 files changed, 7 insertions, 0 deletions
diff --git a/src/package.lisp b/src/package.lisp index 389609e..7ee652e 100644 --- a/src/package.lisp +++ b/src/package.lisp @@ -11,6 +11,7 @@ (#:http #:hunchentoot) (#:a #:alexandria-2) (#:mop #:closer-mop)) + (:export ;; HANDLER PROTOCOL #:check-request-compliance @@ -48,5 +49,8 @@ #:body-expected-p #:request-method #:set-response-type + + ;; DEBUGGING + #:toggle-debugging )) diff --git a/src/protocol.lisp b/src/protocol.lisp index 87d1651..31934f4 100644 --- a/src/protocol.lisp +++ b/src/protocol.lisp @@ -5,6 +5,9 @@ (defvar *debugging* nil "If T, the debugger will be evoked.") +(defun toggle-debugging () + (setf *debugging* (not *debugging*))) + (define-condition protocol-error (error) ((raw-request :reader raw-request |