From 79bcac46054b8923b163c17167b77ee9a21be988 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sat, 2 Apr 2022 14:15:44 -0700 Subject: rename RUN-FAILED accessors Signed-off-by: Sean Whitton --- src/connection.lisp | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'src/connection.lisp') diff --git a/src/connection.lisp b/src/connection.lisp index 2253e08..7db2413 100644 --- a/src/connection.lisp +++ b/src/connection.lisp @@ -267,18 +267,18 @@ login(1)). Tilde expansion works correctly." ;; their corresponding implementation of CONNECTION-RUN). (define-condition run-failed (error) - ((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)) + ((cmd :initarg :cmd :reader run-failed-cmd) + (stdout :initarg :stdout :reader run-failed-stdout) + (stderr :initarg :stderr :reader run-failed-stderr) + (exit-code :initarg :exit-code :reader run-failed-exit)) (:report (lambda (condition stream) (format stream "~&'~A' failed, exit code ~A~%~%stderr was:~%~A~&~%stdout:~%~A" - (failed-cmd condition) - (failed-exit-code condition) - (failed-stderr condition) - (failed-stdout condition))))) + (run-failed-cmd condition) + (run-failed-exit condition) + (run-failed-stderr condition) + (run-failed-stdout condition))))) (defmacro with-remote-temporary-file ((file &key -- cgit v1.2.3