From 3dc02db24a479322cc3b2714d178e5e1bd0d4067 Mon Sep 17 00:00:00 2001
From: eta <github@eta.st>
Date: Fri, 28 May 2021 16:51:39 +0100
Subject: [PATCH] add option to enable debug logging via setting WXDEBUG env
 var

---
 stuff.lisp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/stuff.lisp b/stuff.lisp
index 9a2c448..0abef9a 100644
--- a/stuff.lisp
+++ b/stuff.lisp
@@ -1516,6 +1516,9 @@ Returns three values: avatar data (as two values), and a generalized boolean spe
   (let ((*default-database-path* (elt sb-ext:*posix-argv* 1)))
     (format t "[*] whatsxmpp version ~A / an eta project <https://theta.eu.org>~%" +version+)
     (format t "[+] Using database at ~A~%" *default-database-path*)
+    (when (uiop:getenv "WXDEBUG")
+      (format t "[*] Enabling whatscl debug logging~%")
+      (setf whatscl::*whatscl-debug-stream* *debug-io*))
     #+use-swank
     (block nil
       (format t "[+] Starting SWANK server~%")