X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=candle;a=blobdiff_plain;f=src%2Fmain%2Fcli.lisp;h=006830eca33bab8387aa3c986ff253488e5c1386;hp=08bd93b2115bc30e6d5e546385a8d01b9963afba;hb=e8e6fda136aeb7ee54d71670d6b9242d0aa132ee;hpb=01d3f5d1a5c7f05a77e3f817823a572200b1bada

diff --git a/src/main/cli.lisp b/src/main/cli.lisp
index 08bd93b..006830e 100644
--- a/src/main/cli.lisp
+++ b/src/main/cli.lisp
@@ -79,7 +79,7 @@
    ((eql error :required-argument-missing) (format *error-output* "Missing argument for ~A.  See 'candle run --help'.~%" (car remaining-args)))
    (remaining-args (format *error-output* "Unknown option: ~A. See 'candle run --help'.~%" (car remaining-args)))
    ((opera:option-present :help options) (format t "~A" (opera:usage "candle run" (run-options))))
-   (t (candle:run)))))
+   ((not (candle:run)) (sb-ext:exit :code 1)))))
 
 (defun run ()
  (multiple-value-bind (options remaining-args error) (opera:process-arguments (main-options) (cdr sb-ext:*posix-argv*))