(defvar *candle-dir*)
+(define-condition candle-error (error) ((reason :initarg :reason :reader candle-error-reason)))
+(defun raise-candle-error (reason) (error (make-instance 'candle-error :reason reason)))
+
(lame-db:defdbstruct project name src)
; Status here is: