From 25c39b05e2866296eb8d14b6f336866634b2bef4 Mon Sep 17 00:00:00 2001 From: Dimitri Fontaine Date: Sat, 27 Dec 2014 00:30:10 +0100 Subject: [PATCH] Tidying up some more. --- src/sources/sqlite/sqlite.lisp | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/src/sources/sqlite/sqlite.lisp b/src/sources/sqlite/sqlite.lisp index 577fd78..407a7db 100644 --- a/src/sources/sqlite/sqlite.lisp +++ b/src/sources/sqlite/sqlite.lisp @@ -73,9 +73,8 @@ (sqlite:finalize-statement statement) (return rows)) (condition (e) - (progn - (log-message :error "~a" e) - (pgstate-incf *state* (target sqlite) :errs 1)))))))) + (log-message :error "~a" e) + (pgstate-incf *state* (target sqlite) :errs 1))))))) (defmethod copy-to-queue ((sqlite copy-sqlite) queue)