diff options
| -rw-r--r-- | lisp/clark.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/clark.lisp b/lisp/clark.lisp index e421d58..03c8614 100644 --- a/lisp/clark.lisp +++ b/lisp/clark.lisp @@ -49,7 +49,8 @@ (setf *help-messages* (nconc *help-messages* '((,sname ,sdoc ,ldoc))) *max-command-name-length* - (max *max-command-name-length* (length ,sname)))))) + (max *max-command-name-length* (length ,sname))) + (export ',command-name)))) (defmacro with-error-and-help (code cmd fmt &rest args) "Call `with-error-status' with CODE, format FMT with ARGS and call |