From f393eeebe8cf6a31ecc2160658bee3d2c895a98b Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Mon, 22 Mar 2021 09:38:57 -0700 Subject: untabify Signed-off-by: Sean Whitton --- src/connection/sbcl.lisp | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'src/connection/sbcl.lisp') 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) -- cgit v1.2.3