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

[mhenoch at common-lisp.net]

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