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

mhenoch at common-lisp.net mhenoch at common-lisp.net
Fri Aug 24 17:20:35 UTC 2007

Author: mhenoch
Date: Fri Aug 24 13:20:35 2007
New Revision: 130

Fix ADD-FILE existing file test

Modified: cl-darcs/trunk/pending.lisp
--- cl-darcs/trunk/pending.lisp	(original)
+++ cl-darcs/trunk/pending.lisp	Fri Aug 24 13:20:35 2007
@@ -49,7 +49,8 @@
 	    (error "~A is not a relative pathname going strictly down." file))
 	  (setf type (if (fad:directory-pathname-p file) :directory :file)))
-	  (setf type (if (fad:directory-exists-p (fad:pathname-as-directory file))
+	  (setf type (if (fad:directory-exists-p 
+			  (fad:pathname-as-directory (merge-pathnames file repo)))
 	  (setf file (sanitize-filename file :type type))))
@@ -64,6 +65,7 @@
 		     (fad:file-exists-p working-file)
 		     (fad:directory-exists-p working-file)))
 	(error "~A does not exist in the working directory." (pathname-to-string file))))
+    ;; XXX: check that all parent directories exist, either in pristine or in pending

More information about the Cl-darcs-cvs mailing list