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

[mhenoch at common-lisp.net]

Author: mhenoch
Date: Thu Sep  6 02:13:11 2007
New Revision: 146

Modified:
   cl-darcs/trunk/cmdline.lisp
Log:
Add init command


Modified: cl-darcs/trunk/cmdline.lisp
==============================================================================
--- cl-darcs/trunk/cmdline.lisp	(original)
+++ cl-darcs/trunk/cmdline.lisp	Thu Sep  6 02:13:11 2007
@@ -89,3 +89,7 @@
 
 Usage: darcs whatsnew"
   (diff-repo-display (find-repo)))
+
+(define-darcs-command init ()
+    "Initialize a darcs repository in the current directory."
+  (create-repo (truename *default-pathname-defaults*)))