From f9d42ead3a1c31be7759acc515b97de61fb0e55e Mon Sep 17 00:00:00 2001 From: ckonstanski Date: Mon, 5 Jan 2026 09:30:18 -0700 Subject: [INF-18490] Fix suboptimal code --- lisp/octopus/octopus.lisp | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'lisp/octopus') diff --git a/lisp/octopus/octopus.lisp b/lisp/octopus/octopus.lisp index ba012c6..88712a3 100644 --- a/lisp/octopus/octopus.lisp +++ b/lisp/octopus/octopus.lisp @@ -443,13 +443,13 @@ as an input filter are stored here for the ride through the queue.") (not (org-ckons-core::match-it "YARP" (name (project deployment)))) (or (not (gethash (name (environment deployment)) deploy-hash)) (string> (completed-time deployment) (completed-time (gethash (name (environment deployment)) deploy-hash))))))) - (let* ((deploy-hash (make-hash-table :test 'equal)) - (deployments (loop for deployment in (get-octopus-deployments octopus :ode-only-p ode-only-p) - when (deployment-included-p deployment deploy-hash) - do (let ((release (get-octopus-release octopus (project deployment) (release-version deployment)))) - (when (version-control-reference release) - (setf (release deployment) release) - (setf (gethash (name (environment deployment)) deploy-hash) deployment)))))) + (let ((deploy-hash (make-hash-table :test 'equal))) + (loop for deployment in (get-octopus-deployments octopus :ode-only-p ode-only-p) + when (deployment-included-p deployment deploy-hash) + do (let ((release (get-octopus-release octopus (project deployment) (release-version deployment)))) + (when (version-control-reference release) + (setf (release deployment) release) + (setf (gethash (name (environment deployment)) deploy-hash) deployment)))) (sort (loop for deployment being the hash-values of deploy-hash collect (make-instance 'octopus-latest-deployment :deployment-id (id deployment) -- cgit v1.3