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)