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

mhenoch at common-lisp.net mhenoch at common-lisp.net
Wed Mar 5 10:39:39 UTC 2008


Author: mhenoch
Date: Wed Mar  5 05:39:39 2008
New Revision: 176

Modified:
   cl-darcs/trunk/cmdline.lisp
Log:
Change default repository when pulling


Modified: cl-darcs/trunk/cmdline.lisp
==============================================================================
--- cl-darcs/trunk/cmdline.lisp	(original)
+++ cl-darcs/trunk/cmdline.lisp	Wed Mar  5 05:39:39 2008
@@ -318,4 +318,8 @@
     (dolist (theirrepo from-repositories)
       (pull ourrepo theirrepo :select-patches (if all-patches :all :ask)))
 
+    ;; Change the default repository.
+    (when (first from-repositories)
+      (set-default-repo ourrepo (upath-to-string (first from-repositories))))
+
     0))



More information about the Cl-darcs-cvs mailing list