diff options
Diffstat (limited to 'l/src/main.lisp')
| -rw-r--r-- | l/src/main.lisp | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/l/src/main.lisp b/l/src/main.lisp index 99a60d0..9701d5f 100644 --- a/l/src/main.lisp +++ b/l/src/main.lisp @@ -20,7 +20,15 @@ :long "version")) (defun main () - (multiple-value-bind (options free-args) (opts:get-opts) + (multiple-value-bind (options free-args) + (handler-bind + ((opts:unknown-option #'handle-option-error) + (opts:missing-arg #'handle-option-error) + (opts:arg-parser-failed #'handle-option-error) + (opts:missing-required-option #'handle-option-error)) + + (opts:get-opts)) + (when-option (options :help) (opts:describe :usage-of "extreload" |