mirrors/lqml
1
Fork 0
mirror of https://gitlab.com/eql/lqml.git synced 2025-12-15 14:51:14 -08:00
Code Issues Projects Releases Packages Wiki Activity

correct wrong var name

Browse source
This commit is contained in:
pls.153 2025-03-21 12:15:16 +01:00
parent a64e53bb59
commit a9d93035b6
2 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

4
examples/meshtastic/lisp/db.lisp
View file

@ -3,9 +3,9 @@
(defvar *file* nil)
(defun query (query &rest values)
(let ((rows (and (x:starts-with "select" query)
(let ((cols (and (x:starts-with "select" query)
(1+ (count #\, (subseq query 0 (search "from" query)))))))
(qrun* (qt:sql-query qt:*cpp* query values rows))))
(qrun* (qt:sql-query qt:*cpp* query values cols))))
(defun ini ()
(setf *file* (app:in-data-path "db"))