aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSean Whitton <spwhitton@spwhitton.name>2021-02-26 17:16:03 -0700
committerSean Whitton <spwhitton@spwhitton.name>2021-02-27 08:33:17 -0700
commitb71e99d16b77cad933fc2554b132009f5ed404e4 (patch)
treed1f1c9b9952ce7263ffb7c2ae8b7b6592d45f523
parentb2e153e2ec9add0dbec673283ebd58b7d13d7456 (diff)
downloadconsfigurator-b71e99d16b77cad933fc2554b132009f5ed404e4.tar.gz
ensure "Waiting ..." gets printed
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
-rw-r--r--src/connection/debian-sbcl.lisp1
1 files changed, 1 insertions, 0 deletions
diff --git a/src/connection/debian-sbcl.lisp b/src/connection/debian-sbcl.lisp
index cee6a07..52b1f36 100644
--- a/src/connection/debian-sbcl.lisp
+++ b/src/connection/debian-sbcl.lisp
@@ -22,6 +22,7 @@
(request-lisp-systems)
(upload-all-prerequisite-data)
(princ "Waiting for remote Lisp to exit, this may take some time ... ")
+ (force-output)
(let ((program (deployment-handover-program remaining)))
(multiple-value-bind (out err exit)
(run :may-fail :input program