From 3dbfff2478ca6b8b310d888a61fc08715ef35d1c Mon Sep 17 00:00:00 2001 From: Teddy Wing Date: Tue, 2 Feb 2021 01:04:08 +0100 Subject: main: Handle command line argument parsing errors Add an error handler that just prints the error messages from 'unix-opts' to standard error and exits with EX_USAGE. Inspired by: - http://lispcookbook.github.io/cl-cookbook/scripting.html#handling-malformed-or-missing-arguments - https://github.com/libre-man/unix-opts/blob/0e61f34b2ecf62288437810d4abb31e572048b04/example/example.lisp --- l/src/option.lisp | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'l/src/option.lisp') diff --git a/l/src/option.lisp b/l/src/option.lisp index d828230..11f7f98 100644 --- a/l/src/option.lisp +++ b/l/src/option.lisp @@ -4,3 +4,8 @@ `(let ((value (getf ,options ,option))) (when value ,@body))) + +(defun handle-option-error (condition) + (format *error-output* "error: ~a~%" condition) + + (opts:exit 64)) -- cgit v1.2.3