((job
(or
(find sha (find-job-by-project project) :test #'string= :key #'job-sha)
- (make-job :status :queued :sha sha :project project)))
+ (make-job :status :queued :sha sha :project project :create-date (get-universal-time))))
(branch
(or
(find branch-name branches :test #'string= :key #'branch-name)