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))