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

[mhenoch at common-lisp.net]

Author: mhenoch
Date: Wed Apr  2 19:00:27 2008
New Revision: 203

Modified:
   cl-darcs/trunk/cmdline.lisp
Log:
Use DARCS-DOCUMENTATION property in USAGE


Modified: cl-darcs/trunk/cmdline.lisp
==============================================================================
--- cl-darcs/trunk/cmdline.lisp	(original)
+++ cl-darcs/trunk/cmdline.lisp	Wed Apr  2 19:00:27 2008
@@ -65,7 +65,7 @@
       (format *error-output* "  ~A~15,2T~A~%" 
 	      cmd
 	      (car (split-sequence:split-sequence 
-		    #\Newline (documentation function 'function)
+		    #\Newline (get function 'darcs-documentation)
 		    :count 1))))))
 
 (defun command-usage (command)