Clean up output on candle-server
authorFrank Duncan <frank.d.duncan@gmail.com>
Thu, 16 Dec 2021 06:17:16 +0000 (00:17 -0600)
committerFrank Duncan <frank.d.duncan@gmail.com>
Thu, 16 Dec 2021 06:17:16 +0000 (00:17 -0600)
bin/candle-server

index 7bd12a6d77bbd9a1f7c51cb2f404e8de41df7b5a..60a847cd26b011303932e96a22f4fa5fedf1ecf3 100755 (executable)
@@ -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)
     (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)