From: Frank Duncan Date: Thu, 16 Dec 2021 06:17:16 +0000 (-0600) Subject: Clean up output on candle-server X-Git-Url: https://code.consxy.com/gitweb/?a=commitdiff_plain;h=f0e0d6e5babe32e9c84f0ed224693fe0cfd83d9e;p=candle Clean up output on candle-server --- diff --git a/bin/candle-server b/bin/candle-server index 7bd12a6..60a847c 100755 --- a/bin/candle-server +++ b/bin/candle-server @@ -7,7 +7,6 @@ (let ((*error-output* (make-broadcast-stream))) (asdf:load-system :candle)) -(asdf:load-system :opera) (defpackage #:candle-server-cli (:use #:common-lisp)) (in-package #:candle-server-cli) @@ -46,9 +45,11 @@ (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))) + (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)