((not (database-store-next-row ,result-set ,db ,row))
((not (database-store-next-row ,result-set ,db ,row))
(database-dump-result-set ,result-set ,db)))))))))
(defun map-query (output-type-spec function query-expression
(database-dump-result-set ,result-set ,db)))))))))
(defun map-query (output-type-spec function query-expression