(remove-if-not #'branch-in-git (find-branch-by-project project)))))
(defun project-job-information (name)
(let
((project (find name *all-project* :test #'string= :key #'project-name)))
(when (not project) (error "Project does not exists"))
(remove-if-not #'branch-in-git (find-branch-by-project project)))))
(defun project-job-information (name)
(let
((project (find name *all-project* :test #'string= :key #'project-name)))
(when (not project) (error "Project does not exists"))