(if (opera:option-present :system options)
(intern (string-upcase (opera:option-argument :system options)) :keyword)
:local))
+ (case candle:*job-system*
+ (:aws (asdf:load-system :candle-aws))
+ (:local (asdf:load-system :candle-local)))
(setf candle:*candle-dir*
(if (opera:option-present :dir options)
(opera:option-argument :dir options)