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