diff options
| -rw-r--r-- | src/connection/fork.lisp | 3 | ||||
| -rw-r--r-- | src/package.lisp | 2 |
2 files changed, 3 insertions, 2 deletions
diff --git a/src/connection/fork.lisp b/src/connection/fork.lisp index 3737a78..015cfbe 100644 --- a/src/connection/fork.lisp +++ b/src/connection/fork.lisp @@ -28,7 +28,8 @@ (upload-all-prerequisite-data connection) (eval-in-grandchild `(post-fork ,connection) `(continue-deploy* ,connection ',remaining) (out err exit) - (inform t (lines out)) + (when-let ((lines (lines out))) + (inform t lines)) (return-exit exit :on-failure (failed-change diff --git a/src/package.lisp b/src/package.lisp index 5cde365..c172460 100644 --- a/src/package.lisp +++ b/src/package.lisp @@ -813,7 +813,7 @@ (:export #:shell-wrap-connection #:connection-shell-wrap)) (defpackage :consfigurator.connection.fork - (:use #:cl #:consfigurator #:consfigurator.connection.local) + (:use #:cl #:alexandria #:consfigurator #:consfigurator.connection.local) (:export #:fork-connection #:post-fork #:can-probably-fork)) |