diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-06-28 17:56:23 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-06-28 17:56:23 -0700 |
commit | 84220cdb2c244f19db4e958187da51251be2ebdd (patch) | |
tree | 029fa0769ccdb146747cad24e9cffc69ebe41b48 /src/connection/fork.lisp | |
parent | 519c4dbd5a6ce576db4adf40c973b97c0d62b8c2 (diff) | |
download | consfigurator-84220cdb2c244f19db4e958187da51251be2ebdd.tar.gz |
report whether FAILED-CHANGE, :NO-CHANGE or something else at end
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/connection/fork.lisp')
-rw-r--r-- | src/connection/fork.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
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)))))))))) |