diff options
Diffstat (limited to 'l/src/option.lisp')
| -rw-r--r-- | l/src/option.lisp | 5 |
1 files changed, 5 insertions, 0 deletions
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)) |