Author: mhenoch Date: Tue Jan 8 13:08:36 2008 New Revision: 156 Modified: cl-darcs/trunk/pristine.lisp Log: Add CREATE-EMPTY-PRISTINE Modified: cl-darcs/trunk/pristine.lisp ============================================================================== --- cl-darcs/trunk/pristine.lisp (original) +++ cl-darcs/trunk/pristine.lisp Tue Jan 8 13:08:36 2008 @@ -1,4 +1,4 @@ -;;; Copyright (C) 2006 Magnus Henoch +;;; Copyright (C) 2006, 2008 Magnus Henoch ;;; ;;; This program is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU General Public License as @@ -16,6 +16,10 @@ (in-package :darcs) +(defun create-empty-pristine (repodir) + "Make an empty pristine tree in REPODIR." + (make-dir (upath-subdir repodir '("_darcs" "pristine")))) + (defun create-pristine-from-tree (repodir) "Copy the checked-out tree at REPODIR to get a pristine tree." (let* ((darcs-dir (upath-subdir repodir '("_darcs")))