From b168015309356166f02f889b666c534acecd0f1b Mon Sep 17 00:00:00 2001 From: Helmut Merz Date: Thu, 16 May 2024 18:09:38 +0200 Subject: [PATCH] fix do-sql method (via prepared query): use correct query object for free-query-resources --- storage/storage.lisp | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/storage/storage.lisp b/storage/storage.lisp index e7604f1..2f06e30 100644 --- a/storage/storage.lisp +++ b/storage/storage.lisp @@ -69,16 +69,17 @@ (qx (dbi:execute qp args))) (dbi:fetch-all qx)))) -(defun do-sql (st spec) +(defun xdo-sql (st spec) (multiple-value-bind (sql args) (sxql:yield spec) ;(print sql) (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) (let* ((conn (conn st)) - (qu (dbi:execute (dbi:prepare conn sql) args))) - (dbi:free-query-resources qu) + (qp (dbi:prepare conn sql))) + (dbi:execute qp args) + (dbi:free-query-resources qp) (dbi:row-count conn)))) (defun drop-table (st tn)