diff options
| author | ckonstanski <carlos.konstanski@olo.com> | 2025-12-24 14:04:59 -0700 |
|---|---|---|
| committer | ckonstanski <carlos.konstanski@olo.com> | 2025-12-24 14:04:59 -0700 |
| commit | 052ac28410a0b6377c39edc1407fb0da0bd40341 (patch) | |
| tree | d1603adb9fa1d133d2ac29bacfb9bafa9fd24c9f /lisp/aws/aws.lisp | |
| parent | 7cd507faf0654d11062c42ae80c57d90799e84cf (diff) | |
edge case: no instances
Diffstat (limited to 'lisp/aws/aws.lisp')
| -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) |