From 84220cdb2c244f19db4e958187da51251be2ebdd Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Mon, 28 Jun 2021 17:56:23 -0700 Subject: report whether FAILED-CHANGE, :NO-CHANGE or something else at end Signed-off-by: Sean Whitton --- src/connection/fork.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/connection') diff --git a/src/connection/fork.lisp b/src/connection/fork.lisp index ae25bca..0a5e03c 100644 --- a/src/connection/fork.lisp +++ b/src/connection/fork.lisp @@ -100,11 +100,11 @@ for example, such that we don't see it." (princ (readfile output)) (let ((exited (wifexited status))) (unless exited - (error + (failed-change "Fork connection child did not exit normally, status #x~(~4,'0X~)" status)) (let ((exit-status (wexitstatus status))) (unless (< exit-status 2) - (error + (failed-change "Fork connection child failed, exit code ~D" exit-status)) (values nil (if (zerop status) :no-change nil)))))))))) -- cgit v1.2.3