From f0e0d6e5babe32e9c84f0ed224693fe0cfd83d9e Mon Sep 17 00:00:00 2001
From: Frank Duncan <frank.d.duncan@gmail.com>
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