From 5e0697e58bc3e8d9a6bfe93276bde182652145d4 Mon Sep 17 00:00:00 2001
From: cage <cage@invalid>
Date: Sat, 2 Dec 2023 18:08:44 +0100
Subject: [PATCH] - added a directive just to debug error signaled from the
 TUI.

---
 src/tui-utils.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/tui-utils.lisp b/src/tui-utils.lisp
index 8e127aa..52c3d26 100644
--- a/src/tui-utils.lisp
+++ b/src/tui-utils.lisp
@@ -502,7 +502,7 @@ latter has a length equals to `total-size'"))
   (* (swconf:config-notification-life) 5))
 
 (defmacro with-notify-errors (&body body)
-  #+debug-mode `(progn ,@body)
+  #+(or debug-mode debug-tui-errors) `(progn ,@body)
   #-debug-mode `(handler-case
                     (progn
                       ,@body)