Author: mhenoch Date: Thu Sep 6 01:34:05 2007 New Revision: 142 Modified: cl-darcs/trunk/cmdline.lisp Log: Fix USAGE. Modified: cl-darcs/trunk/cmdline.lisp ============================================================================== --- cl-darcs/trunk/cmdline.lisp (original) +++ cl-darcs/trunk/cmdline.lisp Thu Sep 6 01:34:05 2007 @@ -53,9 +53,10 @@ (dolist (cmd *darcs-commands*) (let ((function (command-function cmd))) (format *error-output* " ~A~15,2T~A~%" - (split-sequence:split-sequence - #\Newline (documentation function 'function) - :count 1))))) + cmd + (car (split-sequence:split-sequence + #\Newline (documentation function 'function) + :count 1)))))) (defun command-usage (command) "Print longer documentation for COMMAND."