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