Add a generic "print error and exit" function

I wanted to centralise the formatting of error printing.

1 files changed, 1 insertions, 6 deletions

diff --git a/l/src/main.lisp b/l/src/main.lisp
index 22c1d07..770d88b 100644
--- a/l/src/main.lisp
+++ b/l/src/main.lisp
@@ -25,12 +25,7 @@
          :long "version"))
 
 (defun main ()
-  (handler-bind ((error
-                   #'(lambda (e)
-                       ;; TODO: generic function for this and `handle-option-error`
-                       (format *error-output* "error: ~a~%" e)
-
-                       (opts:exit 69))))
+  (handler-bind ((error #'(lambda (e) (exit-with-error e 69))))
 
     (let ((config (parse-options)))
       ;; Store the WebSocket client as a global.