- (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-))
- (step-var (ansi-loop::loop-gentemp 'loop-record-step-)))
- #+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))
+ (let ((query-var (gensym 'loop-record-))
+ (db-var (gensym 'loop-record-database-))
+ (result-set-var (gensym 'loop-record-result-set-))
+ (step-var (gensym 'loop-record-step-)))
+ (values
+ t
+ nil
+ `(,@(mapcar (lambda (v) `(,v nil)) iter-var)
+ (,query-var ,in-phrase)