if [ x$mbase != x$ancestor ]; then
fail "not ff $ancestor..$now, $mbase != $ancestor"
fi
-}
+}
+
+t-prep-newpackage () {
+ p=$1
+ v=$2
+ t-archive-none $p
+ t-git-none
+ v=3-1
+ t-worktree $v
+ cd $p
+ git branch -m dgit/sid master
+ git remote rm dgit
+ cd ..
+}
t-archive-none () {
p=$1