diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-22 09:27:38 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-22 09:27:51 -0700 |
commit | 2063385338300dfb11cd1a681ba0ca9e7b1aaf37 (patch) | |
tree | 7a83ec1b26c4800f10f78d939acc7e73cc526153 /src/connection.lisp | |
parent | 82e3b9b2b5528a02a901e1b698bb8b35496eada1 (diff) | |
download | consfigurator-2063385338300dfb11cd1a681ba0ca9e7b1aaf37.tar.gz |
add a :REPORT to RUN-FAILED
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/connection.lisp')
-rw-r--r-- | src/connection.lisp | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/src/connection.lisp b/src/connection.lisp index 4b86b04..3ef8d5b 100644 --- a/src/connection.lisp +++ b/src/connection.lisp @@ -165,7 +165,15 @@ the root Lisp's machine. For example, using rsync(1) over SSH.")) ((cmd :initarg :cmd :reader failed-cmd) (stdout :initarg :stdout :reader failed-stdout) (stderr :initarg :stderr :reader failed-stderr) - (exit-code :initarg :exit-code :reader failed-exit-code))) + (exit-code :initarg :exit-code :reader failed-exit-code)) + (:report (lambda (condition stream) + (format + stream + "~&'~A' failed, exit code ~A~%~%stdout was:~%~A~&~%stderr:~%~A" + (failed-cmd condition) + (failed-exit-code condition) + (failed-stdout condition) + (failed-stderr condition))))) (defmacro with-remote-temporary-file ((file &key |