+ ((opera:option-present :help options) (format t "~A" (opera:usage "candle job" (job-options))))
+ ((not (opera:option-present :project-name options)) (format *error-output* "Requires --project argument. See 'candle job --help'.~%" ))
+ (t (project-history (opera:option-argument :project-name options))))))