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