From 3e9649aad509ff6e7fd7e7e4cd8a87b154737443 Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Thu, 28 Nov 2024 08:26:56 -0800
Subject: export toggle-debugging function

---
 src/package.lisp  | 4 ++++
 src/protocol.lisp | 3 +++
 2 files changed, 7 insertions(+)

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
-- 
cgit v1.2.3