From 32d91d7054a85c0eb7304079b7a73f4f1eb05ca6 Mon Sep 17 00:00:00 2001 From: Dimitri Fontaine Date: Mon, 25 Nov 2013 11:25:57 +0100 Subject: [PATCH] Return a non-zero error code to the OS when something unexpected did happen. --- src/main.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/main.lisp b/src/main.lisp index aaa10e4..190781e 100644 --- a/src/main.lisp +++ b/src/main.lisp @@ -173,6 +173,7 @@ (format t "~&")) (condition (c) - (when debug (invoke-debugger c)))))) + (when debug (invoke-debugger c)) + (uiop:quit 1))))) (uiop:quit)))))