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

mhenoch at common-lisp.net mhenoch at common-lisp.net
Tue Nov 28 01:36:32 UTC 2006


Author: mhenoch
Date: Mon Nov 27 20:36:32 2006
New Revision: 83

Modified:
   cl-darcs/trunk/get.lisp
   cl-darcs/trunk/packages.lisp
Log:
Add and export create-repo


Modified: cl-darcs/trunk/get.lisp
==============================================================================
--- cl-darcs/trunk/get.lisp	(original)
+++ cl-darcs/trunk/get.lisp	Mon Nov 27 20:36:32 2006
@@ -16,6 +16,12 @@
 
 (in-package :darcs)
 
+(defun create-repo (repodir)
+  "Create an empty repository."
+  (setf repodir (fad:pathname-as-directory repodir))
+  (prepare-new-repo repodir)
+  (create-pristine-from-tree repodir))
+
 ;; get_cmd in Get.lhs
 (defun get-repo (inrepodir outname &key (partial nil) (query nil))
   (setf outname (fad:pathname-as-directory outname))

Modified: cl-darcs/trunk/packages.lisp
==============================================================================
--- cl-darcs/trunk/packages.lisp	(original)
+++ cl-darcs/trunk/packages.lisp	Mon Nov 27 20:36:32 2006
@@ -5,4 +5,4 @@
   (:nicknames :cl-darcs)
   (:export
    #:get-repo #:pull #:diff-repo #:*http-proxy*
-   #:record-patches))
+   #:record-patches #:create-repo))



More information about the Cl-darcs-cvs mailing list