diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-22 11:00:08 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-22 11:01:14 -0700 |
commit | 4e28f73081fcc4df8e89e4cad4856c2e9b53f3ab (patch) | |
tree | 4859573dbf792f2c262f06e1c05055d812ab5d5f /src/connection/sbcl.lisp | |
parent | d327b7ed12a5fc0c509e67f7625651ade898e388 (diff) | |
download | consfigurator-4e28f73081fcc4df8e89e4cad4856c2e9b53f3ab.tar.gz |
switch order of output when remote Lisp fails
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/connection/sbcl.lisp')
-rw-r--r-- | src/connection/sbcl.lisp | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/connection/sbcl.lisp b/src/connection/sbcl.lisp index 93b340e..e7dd10a 100644 --- a/src/connection/sbcl.lisp +++ b/src/connection/sbcl.lisp @@ -40,8 +40,9 @@ (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)) + (error + "~&Remote Lisp failed; stderr was:~%~%~A~&~%Program we sent:~%~%~A" + err forms)) (inform t " Output was:" :fresh-line nil) (with-indented-inform (inform t (lines out))))) nil) |