`(((,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)
(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