a3x/whatsxmpp
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

add option to enable debug logging via setting WXDEBUG env var

Browse source
This commit is contained in:
eta 2021-05-28 16:51:39 +01:00
parent b57a1a26f3
commit 3dc02db24a
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
stuff.lisp
View file

@ -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))) (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 "[*] whatsxmpp version ~A / an eta project <https://theta.eu.org>~%" +version+)
(format t "[+] Using database at ~A~%" *default-database-path*) (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 #+use-swank
(block nil (block nil
(format t "[+] Starting SWANK server~%") (format t "[+] Starting SWANK server~%")