- (case candle:*job-system*
- (:aws (asdf:load-system :candle-aws))
- (:local (asdf:load-system :candle-local)))
+ (let
+ ((*error-output* (make-broadcast-stream)))
+ (case candle:*job-system*
+ (:aws (asdf:load-system :candle-aws))
+ (:local (asdf:load-system :candle-local))))