cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- added a couple of debug flags to make logging more fine-tuned.

This commit is contained in:
cage 2022-12-29 17:23:24 +01:00
parent f8bf6aa360
commit 72bb14c9d6
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/db-utils.lisp
View File

@ -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)

2
tinmop.asd
View File

@ -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*)