X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=candle;a=blobdiff_plain;f=src%2Fmain%2Faws%2Faws.lisp;h=2913d3244492dc5f9ca8c259c2ad4a8eff6c521b;hp=1d3745b27cd59886ad20722d5332710c0ca5b3ad;hb=92a8cc8928e1f5d6aa13708b35cb4551aa736a37;hpb=f0e0d6e5babe32e9c84f0ed224693fe0cfd83d9e

diff --git a/src/main/aws/aws.lisp b/src/main/aws/aws.lisp
index 1d3745b..2913d32 100644
--- a/src/main/aws/aws.lisp
+++ b/src/main/aws/aws.lisp
@@ -26,6 +26,7 @@
    (values-list retn))))
 
 (defun start-shutdown-thread ()
+ (format t "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)))
+ (format t "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