From b6716954f2584a914691650f4f329ab4e09a6980 Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Sun, 6 Oct 2013 14:35:39 +0200
Subject: Export commands

---
 lisp/clark.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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
-- 
cgit v1.2.3-54-g00ecf