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)
|
(defun prepare-query (sql)
|
||||||
"Compile a query in a format suitable to be executed"
|
"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))
|
(sqlite:prepare-statement *connection* sql))
|
||||||
|
|
||||||
(defun execute-query (prepared-sql &optional (parameters nil))
|
(defun execute-query (prepared-sql &optional (parameters nil))
|
||||||
|
@ -133,7 +133,7 @@
|
||||||
|
|
||||||
(defun query-low-level (sql &optional (parameters nil))
|
(defun query-low-level (sql &optional (parameters nil))
|
||||||
"prepare and Execute a text in SQL format"
|
"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))
|
(execute-query (prepare-query sql) parameters))
|
||||||
|
|
||||||
(defun query (q)
|
(defun query (q)
|
||||||
|
|
|
@ -168,4 +168,6 @@
|
||||||
(:file "jsonrpc2-tests")))))
|
(:file "jsonrpc2-tests")))))
|
||||||
|
|
||||||
;;(push :debug-mode *features*)
|
;;(push :debug-mode *features*)
|
||||||
|
;;(push :debug-sql *features*)
|
||||||
;;(push :debug-gemini-request *features*)
|
;;(push :debug-gemini-request *features*)
|
||||||
|
;;(push :debug-json-rpc *features*)
|
||||||
|
|
Loading…
Reference in New Issue