[Cl-darcs-cvs] r142 - cl-darcs/trunk

[mhenoch at common-lisp.net]

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."