projects
/
candle
/ blobdiff
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Handle shutdown gracefully
[candle]
/
bin
/
candle-server
diff --git
a/bin/candle-server
b/bin/candle-server
index 8c4d0cb9a9f1d0f04097aa74638b3d2ea905996f..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,6
+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))
+ (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)