[INF-18490] Fix suboptimal code

1 files changed, 7 insertions, 7 deletions

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)