(remaining-args
(format *error-output* "Don't understand ~A. See 'candle-server -h'~%" (car remaining-args))
(sb-ext:exit :code 1))
- ((and (opera:option-present :port options) (not (parse-integer (opera:option-argument :port options) :junk-allowed t)))
+ ((and
+ (opera:option-present :port options)
+ (not (parse-integer (opera:option-argument :port options) :junk-allowed t)))
(format *error-output* "--port requires a number. See 'candle-server -h'~%"))
(t
(let
(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/"))
- (format t "Starting server on port ~A~%" port)
- (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))))))