From f0e0d6e5babe32e9c84f0ed224693fe0cfd83d9e Mon Sep 17 00:00:00 2001 From: Frank Duncan Date: Thu, 16 Dec 2021 00:17:16 -0600 Subject: [PATCH] Clean up output on candle-server --- bin/candle-server | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) 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) -- 2.25.1