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...
This commit is contained in:
Dimitri Fontaine 2017-06-27 11:19:07 +02:00
parent 2341ef195d
commit 46d6f339df

View File

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