diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-22 09:38:57 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-22 09:38:57 -0700 |
| commit | f393eeebe8cf6a31ecc2160658bee3d2c895a98b (patch) | |
| tree | b6c85fc026ffafc58f3c1479efadebb8ba699934 /src/connection/sbcl.lisp | |
| parent | 2063385338300dfb11cd1a681ba0ca9e7b1aaf37 (diff) | |
| download | consfigurator-f393eeebe8cf6a31ecc2160658bee3d2c895a98b.tar.gz | |
untabify
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/connection/sbcl.lisp')
| -rw-r--r-- | src/connection/sbcl.lisp | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/connection/sbcl.lisp b/src/connection/sbcl.lisp index 4ed465c..2cc73a6 100644 --- a/src/connection/sbcl.lisp +++ b/src/connection/sbcl.lisp @@ -37,15 +37,15 @@ (multiple-value-bind (program forms) (continue-deploy*-program remaining) (multiple-value-bind (out err exit) - (run :may-fail :input program - "sbcl" "--noinform" "--noprint" - "--disable-debugger" - "--no-sysinit" "--no-user-init") + (run :may-fail :input program + "sbcl" "--noinform" "--noprint" + "--disable-debugger" + "--no-sysinit" "--no-user-init") (inform t "done." :fresh-line nil) (unless (zerop exit) - ;; print FORMS not PROGRAM because latter might contain sudo passwords - (error "~%~%Remote Lisp failed; we sent~%~%~A~%~%and stderr was:~%~A" - forms err)) + ;; print FORMS not PROGRAM because latter might contain sudo passwords + (error "~%~%Remote Lisp failed; we sent~%~%~A~%~%and stderr was:~%~A" + forms err)) (inform t " Output was:" :fresh-line nil) (with-indented-inform (inform t (lines out))))) nil) |