chiark / gitweb /
frontend.lisp: Return non-nil from `main'.
authorMark Wooding <mdw@distorted.org.uk>
Sun, 4 Feb 2024 19:37:54 +0000 (19:37 +0000)
committerMark Wooding <mdw@distorted.org.uk>
Sun, 4 Feb 2024 19:37:54 +0000 (19:37 +0000)
Otherwise some versions of `cl-launch' force a nonzero exit status.

frontend.lisp

index 613fb21e7ab5c19abf34b4f7966f3c8211416c1e..e170731fbd70f77ab60fc7e1c8fe100cfc4075e0 100644 (file)
@@ -121,6 +121,7 @@ (defun main ()
          (die-usage)))
       (if opt-debug
          (run)
-         (with-unix-error-reporting () (run))))))
+         (with-unix-error-reporting () (run)))
+      t)))
 
 ;;;----- That's all, folks --------------------------------------------------