r11060: fix loop error on clisp. RESULT-SET should be T at start of loop to avoid...

[clsql.git] / sql / loop-extension.lisp

diff --git a/sql/loop-extension.lisp b/sql/loop-extension.lisp
index 98597a688fa3b381a2c2dc17b29752c5f713be0e..802533092c71b36a0c5ac8fa1655219ce622c674 100644 (file)
--- a/sql/loop-extension.lisp
+++ b/sql/loop-extension.lisp
@@ -110,7 +110,7 @@
         `(((,variable nil ,@(and data-type (list data-type)))
            (,query-var ,(first in-phrase))
            (,db-var ,(first from-phrase))
-           (,result-set-var nil)
+           (,result-set-var t)
            (,step-var nil))
           ((multiple-value-bind (%rs %cols)
                (database-query-result-set ,query-var ,db-var :result-types :auto)