Add a generic "print error and exit" function

I wanted to centralise the formatting of error printing.

1 files changed, 5 insertions, 2 deletions

diff --git a/l/src/option.lisp b/l/src/option.lisp
index 14553a0..b666fa4 100644
--- a/l/src/option.lisp
+++ b/l/src/option.lisp
@@ -5,10 +5,13 @@
      (when value
        ,@body)))
 
-(defun handle-option-error (condition)
+(defun exit-with-error (condition exit-code)
   (format *error-output* "error: ~a~%" condition)
 
-  (opts:exit 64))
+  (opts:exit exit-code))
+
+(defun handle-option-error (condition)
+  (exit-with-error condition 64))
 
 (defun parse-options ()
   (multiple-value-bind (options free-args)