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

[mhenoch at common-lisp.net]

Author: mhenoch
Date: Wed Apr  2 19:02:00 2008
New Revision: 204

Modified:
   cl-darcs/trunk/cmdline.lisp
Log:
Note todo items for command operands


Modified: cl-darcs/trunk/cmdline.lisp
==============================================================================
--- cl-darcs/trunk/cmdline.lisp	(original)
+++ cl-darcs/trunk/cmdline.lisp	Wed Apr  2 19:02:00 2008
@@ -97,9 +97,11 @@
 			 (lambda (o)
 			   `(,o (cdr (assoc (option-keyword ,(option-symbol o)) ,options-sym))))
 			 options)
+		    ;; XXX: what if this fails?
 		    (destructuring-bind ,operands ,operands-sym
 		      , at body))))
 	 (setf (get ',function 'darcs-documentation)
+	       ;; XXX: documentation for operands
 	       ,(if (null options)
 		    docstring
 		    `(format nil