- (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-)))
+ (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-)))