From: Frank Duncan <frank.d.duncan@gmail.com>
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)