diff options
| -rw-r--r-- | app/app.lisp | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/app/app.lisp b/app/app.lisp index 0ed0b45..dff5dcb 100644 --- a/app/app.lisp +++ b/app/app.lisp @@ -53,5 +53,9 @@ :sub-commands (toplevel/subcommands))) (defun main () - (cli:run (toplevel/command))) + (ol::with-local-state + (handler-case + (cli:run (toplevel/command))) + (error (e) + (format t "unhandled error ~e~%" e)))) |