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

[mhenoch at common-lisp.net]

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)))