From 8bf4bffb2c2e5532247b3b330c845e69a0093b26 Mon Sep 17 00:00:00 2001 From: Dimitri Fontaine Date: Mon, 23 Dec 2013 13:16:04 +0100 Subject: [PATCH] Fix SQLite stats, wasn't counting read rows. --- src/sources/sqlite.lisp | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/sources/sqlite.lisp b/src/sources/sqlite.lisp index 43bde6d..129217f 100644 --- a/src/sources/sqlite.lisp +++ b/src/sources/sqlite.lisp @@ -155,8 +155,11 @@ :do (setf (aref v x) (sqlite:statement-column-value statement x))) v) + counting t into rows do (funcall process-row-fn row) - finally (sqlite:finalize-statement statement)))) + finally + (sqlite:finalize-statement statement) + (return rows)))) (defmethod copy-to-queue ((sqlite copy-sqlite) dataq)