(opera:option-present :port options)
(parse-integer (opera:option-argument :port options) :junk-allowed t))
25004)))
(opera:option-present :port options)
(parse-integer (opera:option-argument :port options) :junk-allowed t))
25004)))
- (setf candle:*job-system*
- (if (opera:option-present :system options)
- (intern (string-upcase (opera:option-argument :system options)) :keyword)
- :local))
- (let
- ((*error-output* (make-broadcast-stream)))
- (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)
- "/opt/candle/"))
- (candle:server port nil))))))
+ (setf candle:*job-system*
+ (if (opera:option-present :system options)
+ (intern (string-upcase (opera:option-argument :system options)) :keyword)
+ :local))
+ (let
+ ((*error-output* (make-broadcast-stream)))
+ (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)
+ "/opt/candle/"))
+ (candle:server port nil))))))