From f0aa90746c39bff31135eef4d53156d13543aaca Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sat, 2 Apr 2022 13:49:59 -0700 Subject: rename RETURN-EXIT -> EXIT-CODE-TO-RETVAL Signed-off-by: Sean Whitton --- src/connection/fork.lisp | 4 ++-- src/connection/sbcl.lisp | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) (limited to 'src/connection') diff --git a/src/connection/fork.lisp b/src/connection/fork.lisp index ca269df..593d468 100644 --- a/src/connection/fork.lisp +++ b/src/connection/fork.lisp @@ -31,7 +31,7 @@ Must not start up any threads.")) `(continue-deploy* ,connection ',remaining)) (when-let ((lines (lines out))) (inform t lines)) - (return-exit + (exit-code-to-retval exit :on-failure (failed-change "~&Fork connection child failed; stderr was ~%~%~A" err)))) @@ -81,7 +81,7 @@ single-threaded context for the execution of POST-FORK.")) `(continue-deploy* ,connection ',remaining)) (when-let ((lines (lines out))) (inform t lines)) - (return-exit + (exit-code-to-retval exit :on-failure (failed-change "~&Reinvoked Lisp image failed; stderr was ~%~%~A" err)))) diff --git a/src/connection/sbcl.lisp b/src/connection/sbcl.lisp index 9d488ca..4fad603 100644 --- a/src/connection/sbcl.lisp +++ b/src/connection/sbcl.lisp @@ -66,7 +66,7 @@ recommended.")) (when-let ((lines (lines out))) (inform t " Output was:" :fresh-line nil) (with-indented-inform (inform t lines))) - (return-exit + (exit-code-to-retval exit ;; print FORMS not PROGRAM because latter might contain sudo passwords :on-failure -- cgit v1.2.3