diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-07-24 16:02:10 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-07-24 16:13:56 -0700 |
commit | 4fe9bcadd5b06706379c67e82a91a4d2472b2971 (patch) | |
tree | 40eccd9d4c8d2f33eccee04d26ee061d7ff512c4 /src/image.lisp | |
parent | f5257075fa2ab474de055bee0d781d3e342cae8e (diff) | |
download | consfigurator-4fe9bcadd5b06706379c67e82a91a4d2472b2971.tar.gz |
fix exit code of remote Lisp image when fail to compile and/or load
See the RETURN-EXIT and WITH-BACKTRACE-AND-EXIT-CODE macros.
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 681c9c9..c3f1884 100644 --- a/src/image.lisp +++ b/src/image.lisp @@ -457,7 +457,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 2))) + (uiop:quit 3))) (when (>= *consfigurator-debug-level* 3) (format t "~&~A" string)))) ;; Delete old FASLs. With SBCL they are megabytes in size. |