- ()
- ()
- (not (clsql-base-sys:database-store-next-row ,result-set-var ,db-var ,step-var))
- (,iter-var ,step-var)
- (not ,result-set-var)
- ()
- (not (clsql-base-sys:database-store-next-row ,result-set-var ,db-var ,step-var))
- (,iter-var ,step-var))))
+ ()
+ ()
+ `((unless (clsql-base-sys:database-store-next-row ,result-set-var ,db-var ,step-var)
+ (when ,result-set-var
+ (clsql-base-sys:database-dump-result-set ,result-set-var ,db-var))
+ t))
+ `(,iter-var ,step-var)
+ `((unless (clsql-base-sys:database-store-next-row ,result-set-var ,db-var ,step-var)
+ (when ,result-set-var
+ (clsql-base-sys:database-dump-result-set ,result-set-var ,db-var))
+ t))
+ `(,iter-var ,step-var)
+ ()
+ ())))