3fe9dbe1fa5749f90e42157f418aeccf63c290ee
[candle] / src / main / base.lisp
1 (in-package #:candle)
2
3 (defvar *candle-dir*)
4
5 (lame-db:defdbstruct project name src)
6 (lame-db:defdbstruct job status sha when-run (project :join project))
7
8 (defun project-dir (project)
9  (format nil "~Arepos/~A/" *candle-dir* (project-name project)))