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 | |
| 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')
| -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)))))))))) |