From 72bb14c9d67cf71829cd51a7e03000f4f68ae438 Mon Sep 17 00:00:00 2001
From: cage <cage@invalid>
Date: Thu, 29 Dec 2022 17:23:24 +0100
Subject: [PATCH] - added a couple of debug flags to make logging more
 fine-tuned.

---
 src/db-utils.lisp | 4 ++--
 tinmop.asd        | 2 ++
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/db-utils.lisp b/src/db-utils.lisp
index a28a2ea..3769041 100644
--- a/src/db-utils.lisp
+++ b/src/db-utils.lisp
@@ -103,7 +103,7 @@
 
 (defun prepare-query (sql)
   "Compile a query in a format suitable to be executed"
-  #+debug-mode (misc:dbg "compiling ~a~%" sql)
+  #+(and debug-mode debug-sql) (misc:dbg "compiling ~a~%" sql)
   (sqlite:prepare-statement *connection* sql))
 
 (defun execute-query (prepared-sql &optional (parameters nil))
@@ -133,7 +133,7 @@
 
 (defun query-low-level (sql &optional (parameters nil))
   "prepare and Execute a text in SQL format"
-  #+debug-mode (misc:dbg  "sql ~a parameters ~a~%" sql parameters)
+  #+(and debug-mode debug-sql) (misc:dbg  "sql ~a parameters ~a~%" sql parameters)
   (execute-query (prepare-query sql) parameters))
 
 (defun query (q)
diff --git a/tinmop.asd b/tinmop.asd
index fa02592..ea14aa7 100644
--- a/tinmop.asd
+++ b/tinmop.asd
@@ -168,4 +168,6 @@
                              (:file "jsonrpc2-tests")))))
 
 ;;(push :debug-mode            *features*)
+;;(push :debug-sql             *features*)
 ;;(push :debug-gemini-request  *features*)
+;;(push :debug-json-rpc        *features*)