X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Floop-extension.lisp;h=802533092c71b36a0c5ac8fa1655219ce622c674;hp=98597a688fa3b381a2c2dc17b29752c5f713be0e;hb=0e43efc5b776edd86d304e103123944a84efd9a4;hpb=478198368a09dcc3f8b079c89d22ac7bdd403179

diff --git a/sql/loop-extension.lisp b/sql/loop-extension.lisp
index 98597a6..8025330 100644
--- 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)