Fix SQLite stats, wasn't counting read rows.

This commit is contained in:
Dimitri Fontaine 2013-12-23 13:16:04 +01:00
parent 8dda84b0e8
commit 8bf4bffb2c

View File

@ -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)