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

revisions

Browse source
This commit is contained in:
pls.153 2025-03-24 18:37:52 +01:00
parent 7ae3cfb04a
commit 6528022b70
6 changed files with 12 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -3,9 +3,7 @@
(defvar *file* nil)
(defun query (query &rest values)
(let ((rows (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)))
(defun ini ()
(setf *file* (app:in-data-path "db"))