From c26878c59e3306b8571f2aea53a4ddf113c232c7 Mon Sep 17 00:00:00 2001
From: Teddy Wing
Date: Sat, 13 Feb 2021 21:16:24 +0100
Subject: Replace exit codes with constants from the `sysexits` system

---
 l/src/main.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'l/src/main.lisp')

diff --git a/l/src/main.lisp b/l/src/main.lisp
index 770d88b..3fc8953 100644
--- a/l/src/main.lisp
+++ b/l/src/main.lisp
@@ -25,7 +25,8 @@
          :long "version"))
 
 (defun main ()
-  (handler-bind ((error #'(lambda (e) (exit-with-error e 69))))
+  (handler-bind ((error #'(lambda (e)
+                            (exit-with-error e sysexits:+unavailable+))))
 
     (let ((config (parse-options)))
       ;; Store the WebSocket client as a global.
-- 
cgit v1.2.3