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

do-sql: trying some variations: hangs with sqlite; free-query-resources: error on postgres

Browse source
This commit is contained in:
Helmut Merz 2024-05-16 15:42:29 +02:00
parent 3f3da9b69b
commit bc6c1d8e31
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
storage/storage.lisp
View file

@ -66,6 +66,13 @@
;(print sql) ;(print sql)
(dbi:do-sql (conn st) sql args))) (dbi:do-sql (conn st) sql args)))
(defun xdo-sql (st spec)
(multiple-value-bind (sql args) (sxql:yield spec)
(let* ((conn (conn st))
(qu (dbi:execute (dbi:prepare conn sql) args)))
(dbi:free-query-resources qu)
(dbi:row-count conn))))
(defun drop-table (st tn) (defun drop-table (st tn)
(do-sql st (sxql:drop-table tn :if-exists t))) (do-sql st (sxql:drop-table tn :if-exists t)))