diff options
Diffstat (limited to 'app/util.lisp')
| -rw-r--r-- | app/util.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/app/util.lisp b/app/util.lisp index 6bcf577..b657e51 100644 --- a/app/util.lisp +++ b/app/util.lisp @@ -34,5 +34,6 @@ command. (handler-case (destructuring-bind ,args-pattern (clingon:command-arguments *cmd*) ,@body) - (error () + (#+sbcl sb-kernel::arg-count-error + #+ccl ccl::simple-program-error (e) (clingon:print-usage *cmd* t))))))) |