Author: mhenoch Date: Tue Apr 1 17:01:01 2008 New Revision: 185 Modified: cl-darcs/trunk/get.lisp Log: GET-REPO: Use more truenames. Output same success message as darcs. Modified: cl-darcs/trunk/get.lisp ============================================================================== --- cl-darcs/trunk/get.lisp (original) +++ cl-darcs/trunk/get.lisp Tue Apr 1 17:01:01 2008 @@ -34,7 +34,7 @@ (setf outname (fad:pathname-as-directory outname)) ;; other access methods later... ;; XXX: checkpoints? - (let* ((repodir (make-upath inrepodir)) + (let* ((repodir (make-upath inrepodir :truename t)) ;; Here we get a list of lists. Each list represents a tag; ;; the latest tag is at the head. Each list contains patches ;; in the order they are to be applied. @@ -48,6 +48,8 @@ ;; Create directories... (ensure-directories-exist outname) + ;; Now that the directory exists, we can get its truename + (setf outname (truename outname)) (prepare-new-repo outname) (set-default-repo outname (upath-to-string inrepodir :truename t)) @@ -85,7 +87,7 @@ (force-output))) (format t "~&Creating pristine") (create-pristine-from-tree outname) - (format t "~&All done")))) + (format t "~&Finished getting.")))) (defun select-some-patches (patchinfo-list) "Interactively select some patches from PATCHINFO-LIST.