ryuslash/clark
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Export commands

Browse source
This commit is contained in:
Tom Willemse 2013-10-06 14:35:39 +02:00
parent 97d631db55
commit b6716954f2
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/clark.lisp
View file

@ -49,7 +49,8 @@
(setf *help-messages* (setf *help-messages*
(nconc *help-messages* '((,sname ,sdoc ,ldoc))) (nconc *help-messages* '((,sname ,sdoc ,ldoc)))
*max-command-name-length* *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) (defmacro with-error-and-help (code cmd fmt &rest args)
"Call `with-error-status' with CODE, format FMT with ARGS and call "Call `with-error-status' with CODE, format FMT with ARGS and call