From 914a901230b73f3d1354a69b5b676377ef15cbec Mon Sep 17 00:00:00 2001 From: Dimitri Fontaine Date: Thu, 7 Nov 2013 15:30:30 +0100 Subject: [PATCH] Some commands don't have a parallel state. --- src/utils.lisp | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/src/utils.lisp b/src/utils.lisp index ed46c78..9b200a7 100644 --- a/src/utils.lisp +++ b/src/utils.lisp @@ -272,12 +272,12 @@ ;; BEFORE (if before - (progn - (report-summary :state before :footer nil) - (format t pgloader.utils::*header-line*) - (report-summary :state state :header nil :footer nil)) - ;; no state before - (report-summary :state state :footer nil)) + (progn + (report-summary :state before :footer nil) + (format t pgloader.utils::*header-line*) + (report-summary :state state :header nil :footer nil)) + ;; no state before + (report-summary :state state :footer nil)) (when (or finally parallel) (format t pgloader.utils::*header-line*) @@ -293,8 +293,9 @@ ;; if the parallel tasks took longer than the rest cumulated, the total ;; waiting time actually was parallel - before - (when (< (pgloader.utils::pgstate-secs state) - (pgloader.utils::pgstate-secs parallel)) + (when (and parallel + (< (pgloader.utils::pgstate-secs state) + (pgloader.utils::pgstate-secs parallel))) (setf (pgloader.utils::pgstate-secs state) (- (pgloader.utils::pgstate-secs parallel) (pgloader.utils::pgstate-secs before))))