Author: mhenoch Date: Wed Mar 5 05:44:12 2008 New Revision: 177 Modified: cl-darcs/trunk/cmdline.lisp Log: Check that we don't pull from current repository Modified: cl-darcs/trunk/cmdline.lisp ============================================================================== --- cl-darcs/trunk/cmdline.lisp (original) +++ cl-darcs/trunk/cmdline.lisp Wed Mar 5 05:44:12 2008 @@ -315,6 +315,10 @@ ;; If no remote repository specified, use the default one. (setf from-repositories (list nil))) + ;; We can't pull from ourselves. + (when (member ourrepo from-repositories :test #'equal) + (error "Can't pull from current repository!")) + (dolist (theirrepo from-repositories) (pull ourrepo theirrepo :select-patches (if all-patches :all :ask)))