X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=candle;a=blobdiff_plain;f=bin%2Fcandle-server;fp=bin%2Fcandle-server;h=60a847cd26b011303932e96a22f4fa5fedf1ecf3;hp=7bd12a6d77bbd9a1f7c51cb2f404e8de41df7b5a;hb=f0e0d6e5babe32e9c84f0ed224693fe0cfd83d9e;hpb=6d4f6ed548e71c00114b5102e725887e379dbc0e

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)