[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