Clean up output on candle-server

diff --git a/bin/candle-server b/bin/candle-server
index 7bd12a6d77bbd9a1f7c51cb2f404e8de41df7b5a..60a847cd26b011303932e96a22f4fa5fedf1ecf3 100755 (executable)
--- a/bin/candle-server
+++ b/bin/candle-server
@@ -7,7 +7,6 @@
 (let
  ((*error-output* (make-broadcast-stream)))
  (asdf:load-system :candle))
 (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)
 
 (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))
     (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)
    (setf candle:*candle-dir*
     (if (opera:option-present :dir options)
      (opera:option-argument :dir options)