diff options
Diffstat (limited to 'l')
| -rw-r--r-- | l/extreload.asd | 1 | ||||
| -rw-r--r-- | l/src/main.lisp | 3 | ||||
| -rw-r--r-- | l/src/option.lisp | 10 |
3 files changed, 8 insertions, 6 deletions
diff --git a/l/extreload.asd b/l/extreload.asd index 7dffd1c..b283481 100644 --- a/l/extreload.asd +++ b/l/extreload.asd @@ -1,6 +1,7 @@ (asdf:defsystem extreload :version "0.0.1" :depends-on (:jsown + :sysexits :unix-opts :wait-group :websocket-driver-client) 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. diff --git a/l/src/option.lisp b/l/src/option.lisp index b666fa4..02c89c2 100644 --- a/l/src/option.lisp +++ b/l/src/option.lisp @@ -11,7 +11,7 @@ (opts:exit exit-code)) (defun handle-option-error (condition) - (exit-with-error condition 64)) + (exit-with-error condition sysexits:+usage+)) (defun parse-options () (multiple-value-bind (options free-args) @@ -28,23 +28,23 @@ :usage-of "extreload" :args "EXTENSION_ID...") - (opts:exit 64)) + (opts:exit sysexits:+usage+)) (when-option (options :version) (format t "~a~%" (asdf:component-version (asdf:find-system :extreload))) - (opts:exit 0)) + (opts:exit sysexits:+ok+)) (when (null (getf options :socket-url)) (format *error-output* "error: '--socket-url' is required~%") - (opts:exit 64)) + (opts:exit sysexits:+usage+)) ;; Error if no extension IDs were given. (when (null free-args) (format *error-output* "error: missing extension IDs~%") - (opts:exit 64)) + (opts:exit sysexits:+usage+)) (make-config :socket-url (getf options :socket-url) :reload-current-tab (getf options :reload-current-tab) |