diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-09-25 16:46:41 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-11-08 16:18:18 -0700 |
commit | 8b78f68a7bb3dc97e9797d17317d5f30ec982ce6 (patch) | |
tree | 0249efd1b4437a0ac91999164a474895bb518819 /src/image.lisp | |
parent | 0dce5f6c3024660929d104fb5299a999a82fc224 (diff) | |
download | consfigurator-8b78f68a7bb3dc97e9797d17317d5f30ec982ce6.tar.gz |
use higher-numbered codes for change status, 1 for unhandled errors
When SBCL fails to start up, such as when previously-loaded shared libraries
cannot be found while trying to reinvoke a dumped image, it exits 1. We must
avoid erroneously interpreting this as a successful attempt to make changes.
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/image.lisp')
-rw-r--r-- | src/image.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/image.lisp b/src/image.lisp index 09fc392..969cea0 100644 --- a/src/image.lisp +++ b/src/image.lisp @@ -565,7 +565,7 @@ Preprocessing must occur in the root Lisp.")) *error-output* "~&Failed to compile and/or load:~%~A~&~%Compile and/or load output:~%~%~A" c string) - (uiop:quit 3))) + (uiop:quit 1))) (when (>= *consfigurator-debug-level* 3) (format t "~&~A" string)))) ;; Continue the deployment. The READ indirection is to try |