(branches (find-branch-by-project project)))
(git project "fetch" "origin" "--prune")
(multiple-value-bind (success code out err) (git project "branch" "-r" "--format" "%(refname) %(objectname)" "--list" "origin/*")
(branches (find-branch-by-project project)))
(git project "fetch" "origin" "--prune")
(multiple-value-bind (success code out err) (git project "branch" "-r" "--format" "%(refname) %(objectname)" "--list" "origin/*")