(in-package #:candle) (defvar *candle-dir*) (lame-db:defdbstruct project name src) ; Status here is: ; - :queued - to be run ; - :failed - job failed ; - :succeeded - job succeeded ; - :no-candle-file - no candle file was found ; - :in-progress - job is running (lame-db:defdbstruct job status sha when-run (project :join project)) ; in-git here refers to whether the branch exists in git. As branches get deleted, ; this will get set to nil but we keep them around for historical reference (lame-db:defdbstruct branch name in-git (project :join project) (job :join job)) (defun project-dir (project) (format nil "~Arepos/~A/" *candle-dir* (project-name project)))