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

diff --git a/sql/loop-extension.lisp b/sql/loop-extension.lisp
index 98597a6..b18447a 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)
@@ -141,7 +141,7 @@
 (defun clsql-loop-method (method-name iter-var iter-var-data-type
 			  prep-phrases inclusive? allowed-preps
 			  method-specific-data)
-  (declare (ignore method-name inclusive? allowed-preps method-specific-data))
+  (declare (ignore method-name iter-var-data-type inclusive? allowed-preps method-specific-data))
   (let ((in-phrase nil)
 	(from-phrase nil))
     (loop for (prep . rest) in prep-phrases