+(defun project-failures (args)
+ (let*
+ ((options
+ '((:name :help :short "h" :long "help" :description "Print this usage.")
+ (:name :project :long "project" :variable-name "PROJECT" :takes-argument t :description "Restrict failures to project named by PROJECT")))
+ (usage (opera:usage "candle project failures" options)))
+ (multiple-value-bind (options remaining-args error) (opera:process-arguments options args)
+ (cond
+ ((eql error :unknown-option) (format *error-output* "Unknown option: ~A. See 'candle project failures --help'.~%" (car remaining-args)))
+ ((eql error :required-argument-missing) (format *error-output* "Missing argument for ~A. See 'candle project failures --help'.~%" (car remaining-args)))
+ ((opera:option-present :help options) (format t "~A" usage))
+ (t
+ (format t "~A"
+ (communication:query
+ `(candle:failures ,(when (opera:option-present :project options) (opera:option-argument :project options))))))))))
+