- ()
- ()
- (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))))
- (t
- (let ((query-var (ansi-loop::loop-gentemp 'loop-record-))
- (db-var (ansi-loop::loop-gentemp 'loop-record-database-))
- (result-set-var (ansi-loop::loop-gentemp
- 'loop-record-result-set-)))
- #+ignore
- (push `(when ,result-set-var
- (clsql-base-sys:database-dump-result-set ,result-set-var ,db-var))
- ansi-loop::*epilogue*)
- `(((,iter-var nil ,iter-var-data-type) (,query-var ,(first in-phrase))
- (,db-var ,(first from-phrase))
- (,result-set-var nil))
- ((multiple-value-bind (%rs %cols)
- (clsql-base-sys:database-query-result-set ,query-var ,db-var)
- (setq ,result-set-var %rs ,iter-var (make-list %cols))))
- ()
- ()
- (not (clsql-base-sys:database-store-next-row ,result-set-var ,db-var ,iter-var))
- ()
- (not ,result-set-var)
- ()
- (not (clsql-base-sys:database-store-next-row ,result-set-var ,db-var ,iter-var))
- ()))))))
-
-
+ ()
+ ()
+ `((unless (clsql-base:database-store-next-row ,result-set-var ,db-var ,step-var)
+ (when ,result-set-var
+ (clsql-base:database-dump-result-set ,result-set-var ,db-var))
+ t))
+ `(,iter-var ,step-var)
+ `((unless (clsql-base:database-store-next-row ,result-set-var ,db-var ,step-var)
+ (when ,result-set-var
+ (clsql-base:database-dump-result-set ,result-set-var ,db-var))
+ t))
+ `(,iter-var ,step-var)
+ ()
+ ()))))))