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

[mhenoch at common-lisp.net]

Author: mhenoch
Date: Fri Mar 30 08:15:59 2007
New Revision: 117

Modified:
   cl-darcs/trunk/send.lisp
Log:
Don't cut history after latest tag if there is no tag


Modified: cl-darcs/trunk/send.lisp
==============================================================================
--- cl-darcs/trunk/send.lisp	(original)
+++ cl-darcs/trunk/send.lisp	Fri Mar 30 08:15:59 2007
@@ -81,9 +81,10 @@
 			       (string= (patchinfo-name patchinfo) "TAG "
 					:end1 4))
 			     common)))
-	    ;; Here we just cut history after the latest tag.  This
-	    ;; should work in most cases.
-	    (setf (cdr latest-tag) nil))
+	    (when latest-tag
+	      ;; Here we just cut history after the latest tag.  This
+	      ;; should work in most cases.
+	      (setf (cdr latest-tag) nil)))
 
 	  (dolist (patchinfo common)
 	    (write-sequence (string-to-bytes