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))