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

[mhenoch at common-lisp.net]

Author: mhenoch
Date: Thu Feb 15 23:45:34 2007
New Revision: 93

Modified:
   cl-darcs/trunk/pull.lisp
Log:
Add repositories that we pull from to "repos"


Modified: cl-darcs/trunk/pull.lisp
==============================================================================
--- cl-darcs/trunk/pull.lisp	(original)
+++ cl-darcs/trunk/pull.lisp	Thu Feb 15 23:45:34 2007
@@ -25,6 +25,7 @@
     (setf theirrepo (car (get-preflist ourrepo "defaultrepo")))
     (unless theirrepo
       (error "No remote repositiory specified, and no default available.")))
+  (add-to-preflist ourrepo "repos" theirrepo)
   (let ((our-patchinfo (read-repo-patch-list ourrepo))
 	(their-patchinfo (read-repo-patch-list theirrepo)))
     (multiple-value-bind (common only-ours only-theirs)