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

[mhenoch at common-lisp.net]

Author: mhenoch
Date: Thu Nov 22 08:52:39 2007
New Revision: 147

Modified:
   cl-darcs/trunk/diff.lisp
Log:
Use TRUENAME on repository directory when diffing

Modified: cl-darcs/trunk/diff.lisp
==============================================================================
--- cl-darcs/trunk/diff.lisp	(original)
+++ cl-darcs/trunk/diff.lisp	Thu Nov 22 08:52:39 2007
@@ -119,7 +119,7 @@
   "Find changes in REPO from pristine tree.
 Return a list of patches.
 ORIGINAL and MODIFIED specify directories to start from."
-  (setf repo (fad:pathname-as-directory repo))
+  (setf repo (truename (fad:pathname-as-directory repo)))
   (unless (and original modified)
     (setf modified repo)
     (setf original (upath-subdir repo '("_darcs" "pristine"))))