diff options
| author |  Tom Willemse | 2013-10-06 14:35:39 +0200 |
|---|---|---|
| committer | Tom Willemse | 2013-10-06 14:35:39 +0200 |
| commit | b6716954f2584a914691650f4f329ab4e09a6980 (patch) | |
| tree | e63efa64d05ae0a862f1c3e435ba2044372d344f | |
| parent | 97d631db555dd5d663d4f81987ab86ebc2aa4d9a (diff) | |
| download | clark-b6716954f2584a914691650f4f329ab4e09a6980.tar.gz clark-b6716954f2584a914691650f4f329ab4e09a6980.zip | |
Export commands
| -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 |