From 46d6f339df4246cba0c0b00387de83631d1c8b23 Mon Sep 17 00:00:00 2001 From: Dimitri Fontaine Date: Tue, 27 Jun 2017 11:19:07 +0200 Subject: [PATCH] Add a user friendly message about what's happening... Still in the abnormal termination case. pgloader might get stuck and if the user knows it's waiting for threads to complete, they might be less worried about the situation and opportunity to kill pgloader... --- src/main.lisp | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/main.lisp b/src/main.lisp index 9a706fe..6c82802 100644 --- a/src/main.lisp +++ b/src/main.lisp @@ -354,6 +354,8 @@ (declare (ignore c)) ; handler-bind printed it out (format *error-output* "~%What I am doing here?~%~%") ;; wait until monitor stops... + (format *error-output* + "~%Waiting for the monitor thread to complete.~%~%") (let ((lp:*kernel* *monitoring-kernel*)) (lp:end-kernel :wait t)) (uiop:quit +os-code-error+)))))