- (t
- ;; Functional query
- (let ((,db ,database))
- (multiple-value-bind (,result-set ,columns)
- (database-query-result-set ,qe ,db
- :full-set nil
- :result-types ,result-types)
- (when ,result-set
- (unwind-protect
- (do ((,row (make-list ,columns)))
- ((not (database-store-next-row ,result-set ,db ,row))
- nil)
- (destructuring-bind ,args ,row
- ,@body))
- (database-dump-result-set ,result-set ,db))))))))))
+ (t
+ ;; Functional query
+ (multiple-value-bind (,result-set ,columns)
+ (database-query-result-set ,qe ,db
+ :full-set nil
+ :result-types ,result-types)
+ (when ,result-set
+ (unwind-protect
+ (do ((,row (make-list ,columns))
+ (,last-form-eval nil))
+ ((not (database-store-next-row ,result-set ,db ,row))
+ ,last-form-eval)
+ (destructuring-bind ,args ,row
+ (setq ,last-form-eval
+ (progn
+ ,@body))))
+ (database-dump-result-set ,result-set ,db)))))))))