From bc6c1d8e31709e48dc7fe121ae2f700a7381189d Mon Sep 17 00:00:00 2001
From: Helmut Merz <helmutm@cy55.de>
Date: Thu, 16 May 2024 15:42:29 +0200
Subject: [PATCH] do-sql: trying some variations: hangs with sqlite;
 free-query-resources: error on postgres

---
 storage/storage.lisp | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/storage/storage.lisp b/storage/storage.lisp
index ed1161e..f95db67 100644
--- a/storage/storage.lisp
+++ b/storage/storage.lisp
@@ -66,6 +66,13 @@
     ;(print sql)
     (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)
   (do-sql st (sxql:drop-table tn :if-exists t)))