X-Git-Url: https://code.consxy.com/gitweb/?a=blobdiff_plain;f=src%2Fmain%2Faws%2Faws.lisp;h=4182c6728fa130063bcc47ab024befc4ce152345;hb=ee77eb54acee4492045d4b5885bc5df332f58566;hp=1d3745b27cd59886ad20722d5332710c0ca5b3ad;hpb=3fdc12a393fbbd099417398018d2fada7e751358;p=candle

diff --git a/src/main/aws/aws.lisp b/src/main/aws/aws.lisp
index 1d3745b..4182c67 100644
--- a/src/main/aws/aws.lisp
+++ b/src/main/aws/aws.lisp
@@ -26,6 +26,7 @@
    (values-list retn))))
 
 (defun start-shutdown-thread ()
+ (log:info "Starting AWS shutdown thread")
  (sb-thread:make-thread
   (lambda ()
    (loop
@@ -40,6 +41,12 @@
     (sleep 30)))
   :name "AWS Shutdown Thread"))
 
+(defmethod candle:shutdown-system ((job-system (eql :aws)))
+ (log:info "Shutting down AWS box for exit")
+ ; If there's a job going, we need to wait for it to finish
+ (sb-thread:with-mutex (*aws-mutex*))
+ (stop-aws-box))
+
 (defun aws-command (cmd &rest args)
  (with-output-to-string (out)
  (sb-ext:run-program