- (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)))