+
+(defun list-projects ()
+ (mapcar
+ (lambda (project)
+ (list
+ (project-name project)
+ (project-src project)))
+ *all-project*))
+
+(defun failures (project-name)
+ (length
+ (remove-if-not
+ (lambda (branch) (eql :failed (job-status (branch-job branch))))
+ (if project-name
+ (find-branch-by-project
+ (find project-name *all-project* :test #'string= :key #'project-name))
+ *all-branch*))))