diff options
Diffstat (limited to 'lisp/aws')
| -rw-r--r-- | lisp/aws/aws.lisp | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/aws/aws.lisp b/lisp/aws/aws.lisp index 05a5dea..b96d768 100644 --- a/lisp/aws/aws.lisp +++ b/lisp/aws/aws.lisp @@ -187,7 +187,11 @@ (lambda (x y) (string< (launch-time x) (launch-time y)))))))) (loop for asg in asgs - do (setf (age asg) (/ (- (get-universal-time) (local-time:timestamp-to-universal (local-time:parse-timestring (launch-time (first (instances asg)))))) 86400.0))) + do (handler-case + (setf (age asg) (/ (- (get-universal-time) (local-time:timestamp-to-universal (local-time:parse-timestring (launch-time (first (instances asg)))))) 86400.0)) + (error (e) + (declare (ignore e)) + (setf (age asg) 999999)))) (sort asgs (lambda (x y) (> (age x) (age y)))))) (defmethod get-instance ((aws aws) instance-id) |