This commit is contained in:
Tom Willemsen 2013-03-23 16:53:08 +01:00
parent 977627a8af
commit 2a37c88b34

View file

@ -28,7 +28,7 @@
"Help texts for commands.") "Help texts for commands.")
(defvar *max-command-name-length* 0 (defvar *max-command-name-length* 0
"Lenght of the longest command name.") "Length of the longest command name.")
(defmacro call-command (name &rest args) (defmacro call-command (name &rest args)
(let ((command-name (make-command-name (symbol-name name)))) (let ((command-name (make-command-name (symbol-name name))))