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

[mhenoch at common-lisp.net]

Author: mhenoch
Date: Thu Feb 15 20:22:57 2007
New Revision: 91

Modified:
   cl-darcs/trunk/diff.lisp
Log:
Use enough-namestring instead of translate-pathname (fixes diff on SBCL)


Modified: cl-darcs/trunk/diff.lisp
==============================================================================
--- cl-darcs/trunk/diff.lisp	(original)
+++ cl-darcs/trunk/diff.lisp	Thu Feb 15 20:22:57 2007
@@ -138,9 +138,9 @@
     ;; With fad:list-directory, we get absolute pathnames.  We make
     ;; them relative to the "root", so they can be compared.
     (flet ((original-to-repo-relative (p)
-	     (translate-pathname p pristine-wild wild))
+	     (pathname (enough-namestring p pristine)))
 	   (modified-to-repo-relative (p)
-	     (translate-pathname p repo-wild wild)))
+	     (pathname (enough-namestring p repo))))
       ;; We list the files in the current directory, both in the
       ;; original and the modified tree, and get the union.
       (let* ((files-in-original