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)