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

[mhenoch at common-lisp.net]

Author: mhenoch
Date: Wed Mar  5 03:11:37 2008
New Revision: 168

Modified:
   cl-darcs/trunk/cmdline.lisp
Log:
FIND-REPO: get truename of directory


Modified: cl-darcs/trunk/cmdline.lisp
==============================================================================
--- cl-darcs/trunk/cmdline.lisp	(original)
+++ cl-darcs/trunk/cmdline.lisp	Wed Mar  5 03:11:37 2008
@@ -110,7 +110,7 @@
 Signal an error if there is none, else return the repository root.
 If DIR is specified, search for repository there instead."
   (if (fad:directory-exists-p (upath-subdir dir '("_darcs")))
-      dir
+      (fad:directory-exists-p dir)	;get directory truename
       (let ((parent-dir (ignore-errors
 			  (merge-pathnames 
 			   (make-pathname :directory '(:relative :up))