(defun aws-command (cmd &rest args)
(with-output-to-string (out)
- (sb-ext:run-program
- *aws-exec*
- (append
- (list "ec2" cmd)
- args)
- :output out
- :error *error-output*)))
+ (sb-ext:run-program
+ *aws-exec*
+ (append
+ (list "ec2" cmd)
+ args)
+ :output out
+ :error *error-output*)))
(defun describe-property (property)
(read-from-string
(let*
((out nil)
(code nil))
- (setf out
- (with-output-to-string (out-str)
- (setf code
- (sb-ext:process-exit-code
- (sb-ext:run-program
- *ssh-exec*
- (list
- "-o"
- "StrictHostKeyChecking=no"
- "-o"
- "UserKnownHostsFile=/dev/null"
- "-i"
- *aws-keyfile*
- (describe-property "PublicIpAddress")
- (format nil "cd ~A ; ~A run" *remote-work-dir* *remote-candle-location*))
- :output out-str
- :error out-str
- :wait t)))))
- (values (zerop code) out)))
+ (setf out
+ (with-output-to-string (out-str)
+ (setf code
+ (sb-ext:process-exit-code
+ (sb-ext:run-program
+ *ssh-exec*
+ (list
+ "-o"
+ "StrictHostKeyChecking=no"
+ "-o"
+ "UserKnownHostsFile=/dev/null"
+ "-i"
+ *aws-keyfile*
+ (describe-property "PublicIpAddress")
+ (format nil "cd ~A ; ~A run" *remote-work-dir* *remote-candle-location*))
+ :output out-str
+ :error out-str
+ :wait t)))))
+ (values (zerop code) out)))