diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-22 11:02:13 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-22 11:02:13 -0700 |
commit | 280ac63f80dd5440b038eb0597721f5dcaf397e8 (patch) | |
tree | 7b509c1e6dbe0b92b6d471e19450eb8e5da18ee2 /src/connection/sbcl.lisp | |
parent | 433dc4ee377505a636e5b17470d992e2ddfce341 (diff) | |
download | consfigurator-280ac63f80dd5440b038eb0597721f5dcaf397e8.tar.gz |
when remote Lisp fails, use FAILED-CHANGE not just ERROR
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/connection/sbcl.lisp')
-rw-r--r-- | src/connection/sbcl.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/connection/sbcl.lisp b/src/connection/sbcl.lisp index e7dd10a..6848f5e 100644 --- a/src/connection/sbcl.lisp +++ b/src/connection/sbcl.lisp @@ -40,7 +40,7 @@ (inform t "done." :fresh-line nil) (unless (zerop exit) ;; print FORMS not PROGRAM because latter might contain sudo passwords - (error + (failed-change "~&Remote Lisp failed; stderr was:~%~%~A~&~%Program we sent:~%~%~A" err forms)) (inform t " Output was:" :fresh-line nil) |