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

[mhenoch at common-lisp.net]

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.