diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-06-05 16:54:02 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-06-05 17:25:13 -0700 |
commit | 9c56f356c14d51cfbc7e852c01fbf519b64a36ae (patch) | |
tree | 4089a4cef08956abca88739bb88239fb1e97dcda /src/connection/sbcl.lisp | |
parent | 7d12f6962db3a81d4108a63a9d09c64087fd170d (diff) | |
download | consfigurator-9c56f356c14d51cfbc7e852c01fbf519b64a36ae.tar.gz |
:SBCL connection: propagate :NO-CHANGE
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/connection/sbcl.lisp')
-rw-r--r-- | src/connection/sbcl.lisp | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/connection/sbcl.lisp b/src/connection/sbcl.lisp index 770d408..820f82e 100644 --- a/src/connection/sbcl.lisp +++ b/src/connection/sbcl.lisp @@ -46,13 +46,13 @@ recommended.")) (multiple-value-bind (program forms) (continue-deploy*-program remaining requirements) (multiple-value-bind (out err exit) (run :may-fail :input program *sbcl*) - (inform t (if (zerop exit) "done." "failed.") :fresh-line nil) + (inform t (if (< exit 2) "done." "failed.") :fresh-line nil) (when-let ((lines (lines out))) (inform t " Output was:" :fresh-line nil) (with-indented-inform (inform t lines))) - (unless (zerop exit) + (unless (< exit 2) ;; print FORMS not PROGRAM because latter might contain sudo passwords (failed-change "~&Remote Lisp failed; stderr was:~%~%~A~&~%Program we sent:~%~%~S" - err forms))))) - nil) + err forms)) + (values nil (if (zerop exit) :no-change nil)))))) |