From 4e28f73081fcc4df8e89e4cad4856c2e9b53f3ab Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Mon, 22 Mar 2021 11:00:08 -0700 Subject: switch order of output when remote Lisp fails Signed-off-by: Sean Whitton --- src/connection/sbcl.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src/connection/sbcl.lisp') 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) -- cgit v1.2.3