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

[mhenoch at common-lisp.net]

Author: mhenoch
Date: Wed Nov 22 15:54:41 2006
New Revision: 72

Modified:
   cl-darcs/trunk/diff.lisp
Log:
Fix modified-pathname


Modified: cl-darcs/trunk/diff.lisp
==============================================================================
--- cl-darcs/trunk/diff.lisp	(original)
+++ cl-darcs/trunk/diff.lisp	Wed Nov 22 15:54:41 2006
@@ -100,11 +100,11 @@
 	 (modified-wild (merge-pathnames wild modified))
 	 patches)
     (dolist (original-pathname (fad:list-directory original))
-      (let ((pathname-string
-	     (pathname-to-string
-	      (translate-pathname original-pathname original-wild repo-wild)))
-	    (modified-pathname
-	     (translate-pathname original-pathname original-wild modified-wild)))
+      (let* ((modified-pathname
+	      (translate-pathname original-pathname original-wild modified-wild))
+	     (pathname-string
+	      (pathname-to-string
+	       (translate-pathname modified-pathname repo-wild wild))))
 	(cond
 	  ((fad:directory-pathname-p original-pathname)
 	   (format t "~&Skipping directory ~A for now" modified-pathname)