From 052ac28410a0b6377c39edc1407fb0da0bd40341 Mon Sep 17 00:00:00 2001 From: ckonstanski Date: Wed, 24 Dec 2025 14:04:59 -0700 Subject: edge case: no instances --- lisp/aws/aws.lisp | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'lisp/aws/aws.lisp') 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) -- cgit v1.3