Author: mhenoch Date: Wed Mar 5 02:55:07 2008 New Revision: 163 Removed: cl-darcs/trunk/init.lisp Modified: cl-darcs/trunk/cl-darcs.asd cl-darcs/trunk/repo.lisp Log: Delete init.lisp and its INIT-TREE. Write empty inventory in PREPARE-NEW-REPO. Modified: cl-darcs/trunk/cl-darcs.asd ============================================================================== --- cl-darcs/trunk/cl-darcs.asd (original) +++ cl-darcs/trunk/cl-darcs.asd Wed Mar 5 02:55:07 2008 @@ -34,7 +34,6 @@ (:file "patchinfo" :depends-on ("util")) (:file "get" :depends-on ("util")) (:file "pull" :depends-on ("util")) - (:file "init" :depends-on ("util")) (:file "prefs" :depends-on ("util")) (:file "repo" :depends-on ("util")) (:file "diff" :depends-on ("util")) Modified: cl-darcs/trunk/repo.lisp ============================================================================== --- cl-darcs/trunk/repo.lisp (original) +++ cl-darcs/trunk/repo.lisp Wed Mar 5 02:55:07 2008 @@ -1,4 +1,4 @@ -;;; Copyright (C) 2006, 2007 Magnus Henoch +;;; Copyright (C) 2006, 2007, 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 @@ -30,7 +30,8 @@ (dolist (dir '("patches" "checkpoints" "prefs" "inventories")) (make-dir (merge-pathnames (make-pathname :directory (list :relative dir)) - darcs-dir)))) + darcs-dir))) + (write-inventory outname ())) (write-default-prefs outname)) ;; {lazily,}read_repo in DarcsRepo.lhs