r11657: 25 Apr 2007 Kevin Rosenberg <kevin@rosenberg.net>

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

diff --git a/sql/loop-extension.lisp b/sql/loop-extension.lisp
index 98597a688fa3b381a2c2dc17b29752c5f713be0e..b18447a5a8e450a2ad1bbe244b4a8cd8ace9b9d7 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)
@@ -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