mirror of https://codeberg.org/cage/tinmop/
- added a couple of debug flags to make logging more fine-tuned.
This commit is contained in:
parent
f8bf6aa360
commit
72bb14c9d6
|
@ -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)
|
||||
|
|
|
@ -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*)
|
||||
|
|
Loading…
Reference in New Issue