cco/cl-scopes
3
0
Fork 0
Code Issues 1 Pull requests Releases Wiki Activity Actions

fix do-sql method (via prepared query): use correct query object for free-query-resources

Browse source
This commit is contained in:
Helmut Merz 2024-05-16 18:09:38 +02:00
parent 1f8fe04b45
commit b168015309
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
storage/storage.lisp
View file

@ -69,16 +69,17 @@
(qx (dbi:execute qp args))) (qx (dbi:execute qp args)))
(dbi:fetch-all qx)))) (dbi:fetch-all qx))))
(defun do-sql (st spec) (defun xdo-sql (st spec)
(multiple-value-bind (sql args) (sxql:yield spec) (multiple-value-bind (sql args) (sxql:yield spec)
;(print sql) ;(print sql)
(dbi:do-sql (conn st) sql args))) (dbi:do-sql (conn st) sql args)))
(defun xdo-sql (st spec) (defun do-sql (st spec)
(multiple-value-bind (sql args) (sxql:yield spec) (multiple-value-bind (sql args) (sxql:yield spec)
(let* ((conn (conn st)) (let* ((conn (conn st))
(qu (dbi:execute (dbi:prepare conn sql) args))) (qp (dbi:prepare conn sql)))
(dbi:free-query-resources qu) (dbi:execute qp args)
(dbi:free-query-resources qp)
(dbi:row-count conn)))) (dbi:row-count conn))))
(defun drop-table (st tn) (defun drop-table (st tn)