From 88123e0f09e4e2871f111a88fad159d80b2e8c34 Mon Sep 17 00:00:00 2001 From: ckonstanski Date: Mon, 29 Dec 2025 15:53:22 -0700 Subject: inlining --- lisp/aws/aws.lisp | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) (limited to 'lisp/aws') diff --git a/lisp/aws/aws.lisp b/lisp/aws/aws.lisp index 37a02af..3460d92 100644 --- a/lisp/aws/aws.lisp +++ b/lisp/aws/aws.lisp @@ -179,11 +179,10 @@ (defmethod get-asgs ((aws aws) filter) (let* ((command "aws autoscaling describe-auto-scaling-groups") (data (cdar (run-aws-cli aws command))) - (instance-ids (org-ckons-core::flatten (loop for asg in data - when (org-ckons-core::match-it filter (cdr (assoc :*auto-scaling-group-name asg))) - collect (loop for instance in (cdr (assoc :*instances asg)) - collect (cdr (assoc :*instance-id instance)))))) - (instances (get-instances aws instance-ids)) + (instances (get-instances aws (org-ckons-core::flatten (loop for asg in data + when (org-ckons-core::match-it filter (cdr (assoc :*auto-scaling-group-name asg))) + collect (loop for instance in (cdr (assoc :*instances asg)) + collect (cdr (assoc :*instance-id instance))))))) (asgs (loop for asg in data when (org-ckons-core::match-it filter (cdr (assoc :*auto-scaling-group-name asg))) collect (make-instance 'aws-asg -- cgit v1.3