lho/loop-repeat-order

qlfile

@@ -18,14 +18,14 @@ git agentcomms https://github.com/lambda-symbolics/agentcomms.git :ref 18676b8de
 git fetch-gist https://github.com/lambda-symbolics/fetch-gist.git :ref 082f4d45d4cf0076c0c891f00e05d71957de6009
 git cl-colorist https://github.com/lambda-symbolics/cl-colorist.git :ref 90f17af4fa3d2c0433030e15fffc0328f3863e29
 git cl+ssl https://github.com/cl-plus-ssl/cl-plus-ssl.git :ref d7a92f9ed0cbae10f07b1b9a9c3c5cc179798748
-git clinedi https://github.com/lambda-symbolics/clinedi.git :ref 12d82e9fc5032f92e156fafb47b68c88a29822df
+git clinedi https://github.com/lambda-symbolics/clinedi.git :ref 49ed50e342c7ff8cfdb23bec18d98d34e97cc4c1
 git clermaid https://github.com/lambda-symbolics/clermaid.git :ref 7a4497aff7514134dd69ab28b7d07c06335b7852
-git cl-jobpond https://github.com/lambda-symbolics/cl-jobpond.git :ref 6823ad515719663d8a574394b8ae21490b6ebf03
+git cl-jobpond https://github.com/lambda-symbolics/cl-jobpond.git :ref 148649aa6f1e998db5bbe807dc934d6b6e2762a1
 git clinker-transcript https://github.com/lambda-symbolics/clinker-transcript.git :ref 1a2af5d4c7441fe756ead213c96a7f332ea8ce25
 git cl-rfc8252 https://github.com/lambda-symbolics/cl-rfc8252.git :ref e2bbd2374ec159f86123c046c020fce27fce2d99
 git cl-rfc8628 https://github.com/lambda-symbolics/cl-rfc8628.git :ref 38d5b6ae81a24031ad6c95b4f42ba99f2cf0a6c3
 git cl-llm-provider-api https://github.com/lambda-symbolics/cl-llm-provider-api.git :ref 5bd8b2a0711fe63823ee36e9aac375f309c6126c
-git cl-lsp https://github.com/lambda-symbolics/cl-lsp.git :ref 48242f336d6bcb6e778763322fba68602ccea921
+git cl-lsp https://github.com/lambda-symbolics/cl-lsp.git :ref 71327540754e7d77f90f76205c206985859b04c6
 git cl-resources https://github.com/lambda-symbolics/cl-resources.git :ref 6fa84c8ab0a87706b2dc266aafb54696c26d919f
 git clasted https://github.com/lambda-symbolics/clasted.git :ref 669dbf5ef7c9d8b6d31678f7d4b9677f3a2166b7
 git daphne https://github.com/lambda-symbolics/daphne.git :ref 0727975d4c74a11be13b39ffe4a33aae74387848
@@ -40,10 +40,10 @@ git colordiff https://github.com/lambda-symbolics/colordiff.git :ref a8d229ae99d
 git parenchek https://github.com/lambda-symbolics/parenchek.git :ref ff5281cdb0be79fd6368b26c837cf7c9a4ea26f6
 git org-templater https://github.com/lambda-symbolics/org-templater.git :ref f9bbf7c4da14b2689450ab51e5b47bda260a6f3e
 git image-daemon https://github.com/lambda-symbolics/image-daemon.git :ref fa5a80c0084cf727258d1f937db41cf2ebed2072
-git ls-compat https://github.com/lambda-symbolics/ls-compat.git :ref cd7ea1588586d3ee77ccd064c98531483da6f52e
+git ls-compat https://github.com/lambda-symbolics/ls-compat.git :ref f3eaf96a8f80120423b5a31055984f9aa688566b
 git ls-flock https://github.com/lambda-symbolics/ls-flock.git :ref ee9fc57a46a396e6386d61f81a6df926ca9f9906
 git idsmall https://github.com/lambda-symbolics/idsmall.git :ref 51032ca6799956bf267857332495c0b6696cc0bb
-git mcparen https://github.com/lambda-symbolics/mcparen.git :ref 2c2289c8ee3079ea907f0a003ca7526d944ecd64
+git mcparen https://github.com/lambda-symbolics/mcparen.git :ref bef9d739fa6c187dcf1c2cfd8995d51b2c942b0b
 git sbcl-generations https://github.com/lambda-symbolics/sbcl-generations.git :ref 7c19962ffd402355bcc32586c880c5975e126ae0
 git sexp-config https://github.com/lambda-symbolics/sexp-config.git :ref 9280b5bf0dc056dee49dcf8c9940f30c049015f9
 git sexp-store https://github.com/lambda-symbolics/sexp-store.git :ref c65561543ce15934e9969fb3fe0ec31e8ddbbf3f
@@ -53,6 +53,6 @@ git surgeon https://github.com/lambda-symbolics/surgeon.git :ref b159c64231f35d2
 git structlisp https://github.com/lambda-symbolics/structlisp.git :ref 987829546bd07030e25ed1b2e4d3246d11b532db
 git argo https://github.com/lambda-symbolics/argo.git :ref c8034c208f43436b19af2858bfb6112ac7e66e1f
 git setinka https://github.com/lambda-symbolics/setinka.git :ref ce63dce34287b20ad81f08f6d208e6e18bc3163f
-git lambda-debugger https://github.com/lambda-symbolics/lambda-debugger.git :ref 7399adcec0af3e0fd4f1e8be260bea2689d8e7af
+git lambda-debugger https://github.com/lambda-symbolics/lambda-debugger.git :ref 8299ae17be78a489321de5e035f1f6cc8ede88bc
 git yolokuva https://github.com/lambda-symbolics/yolokuva.git :ref e35d37d21bf07bb99473c0144144fa73c313d898
 git defingerprinter https://github.com/chakanysystems/defingerprinter.git :ref ade272f23397fc1791b5c0a9b1046407cbe39e04

qlfile.lock

@@ -80,16 +80,16 @@
   :version "git-d7a92f9ed0cbae10f07b1b9a9c3c5cc179798748"))
 ("clinedi" .
  (:class qlot/source/git:source-git
-  :initargs (:remote-url "https://github.com/lambda-symbolics/clinedi.git" :ref "12d82e9fc5032f92e156fafb47b68c88a29822df")
-  :version "git-12d82e9fc5032f92e156fafb47b68c88a29822df"))
+  :initargs (:remote-url "https://github.com/lambda-symbolics/clinedi.git" :ref "49ed50e342c7ff8cfdb23bec18d98d34e97cc4c1")
+  :version "git-49ed50e342c7ff8cfdb23bec18d98d34e97cc4c1"))
 ("clermaid" .
  (:class qlot/source/git:source-git
   :initargs (:remote-url "https://github.com/lambda-symbolics/clermaid.git" :ref "7a4497aff7514134dd69ab28b7d07c06335b7852")
   :version "git-7a4497aff7514134dd69ab28b7d07c06335b7852"))
 ("cl-jobpond" .
  (:class qlot/source/git:source-git
-  :initargs (:remote-url "https://github.com/lambda-symbolics/cl-jobpond.git" :ref "6823ad515719663d8a574394b8ae21490b6ebf03")
-  :version "git-6823ad515719663d8a574394b8ae21490b6ebf03"))
+  :initargs (:remote-url "https://github.com/lambda-symbolics/cl-jobpond.git" :ref "148649aa6f1e998db5bbe807dc934d6b6e2762a1")
+  :version "git-148649aa6f1e998db5bbe807dc934d6b6e2762a1"))
 ("clinker-transcript" .
  (:class qlot/source/git:source-git
   :initargs (:remote-url "https://github.com/lambda-symbolics/clinker-transcript.git" :ref "1a2af5d4c7441fe756ead213c96a7f332ea8ce25")
@@ -108,8 +108,8 @@
   :version "git-5bd8b2a0711fe63823ee36e9aac375f309c6126c"))
 ("cl-lsp" .
  (:class qlot/source/git:source-git
-  :initargs (:remote-url "https://github.com/lambda-symbolics/cl-lsp.git" :ref "48242f336d6bcb6e778763322fba68602ccea921")
-  :version "git-48242f336d6bcb6e778763322fba68602ccea921"))
+  :initargs (:remote-url "https://github.com/lambda-symbolics/cl-lsp.git" :ref "71327540754e7d77f90f76205c206985859b04c6")
+  :version "git-71327540754e7d77f90f76205c206985859b04c6"))
 ("cl-resources" .
  (:class qlot/source/git:source-git
   :initargs (:remote-url "https://github.com/lambda-symbolics/cl-resources.git" :ref "6fa84c8ab0a87706b2dc266aafb54696c26d919f")
@@ -168,8 +168,8 @@
   :version "git-fa5a80c0084cf727258d1f937db41cf2ebed2072"))
 ("ls-compat" .
  (:class qlot/source/git:source-git
-  :initargs (:remote-url "https://github.com/lambda-symbolics/ls-compat.git" :ref "cd7ea1588586d3ee77ccd064c98531483da6f52e")
-  :version "git-cd7ea1588586d3ee77ccd064c98531483da6f52e"))
+  :initargs (:remote-url "https://github.com/lambda-symbolics/ls-compat.git" :ref "f3eaf96a8f80120423b5a31055984f9aa688566b")
+  :version "git-f3eaf96a8f80120423b5a31055984f9aa688566b"))
 ("ls-flock" .
  (:class qlot/source/git:source-git
   :initargs (:remote-url "https://github.com/lambda-symbolics/ls-flock.git" :ref "ee9fc57a46a396e6386d61f81a6df926ca9f9906")
@@ -180,8 +180,8 @@
   :version "git-51032ca6799956bf267857332495c0b6696cc0bb"))
 ("mcparen" .
  (:class qlot/source/git:source-git
-  :initargs (:remote-url "https://github.com/lambda-symbolics/mcparen.git" :ref "2c2289c8ee3079ea907f0a003ca7526d944ecd64")
-  :version "git-2c2289c8ee3079ea907f0a003ca7526d944ecd64"))
+  :initargs (:remote-url "https://github.com/lambda-symbolics/mcparen.git" :ref "bef9d739fa6c187dcf1c2cfd8995d51b2c942b0b")
+  :version "git-bef9d739fa6c187dcf1c2cfd8995d51b2c942b0b"))
 ("sbcl-generations" .
  (:class qlot/source/git:source-git
   :initargs (:remote-url "https://github.com/lambda-symbolics/sbcl-generations.git" :ref "7c19962ffd402355bcc32586c880c5975e126ae0")
@@ -220,8 +220,8 @@
   :version "git-ce63dce34287b20ad81f08f6d208e6e18bc3163f"))
 ("lambda-debugger" .
  (:class qlot/source/git:source-git
-  :initargs (:remote-url "https://github.com/lambda-symbolics/lambda-debugger.git" :ref "7399adcec0af3e0fd4f1e8be260bea2689d8e7af")
-  :version "git-7399adcec0af3e0fd4f1e8be260bea2689d8e7af"))
+  :initargs (:remote-url "https://github.com/lambda-symbolics/lambda-debugger.git" :ref "8299ae17be78a489321de5e035f1f6cc8ede88bc")
+  :version "git-8299ae17be78a489321de5e035f1f6cc8ede88bc"))
 ("yolokuva" .
  (:class qlot/source/git:source-git
   :initargs (:remote-url "https://github.com/lambda-symbolics/yolokuva.git" :ref "e35d37d21bf07bb99473c0144144fa73c313d898")

src/agent/prompt.lisp

@@ -60,9 +60,9 @@ prompt instead of the full Autolith persona.")
   "Return AGENTS.md paths from the project root down to WORKING-DIRECTORY."
   (let* ((root (workspace-project-root working-directory))
          (directories
-           (loop repeat *workspace-project-depth-limit*
-                 for directory = working-directory
+           (loop for directory = working-directory
                    then (uiop:pathname-parent-directory-pathname directory)
+                 repeat *workspace-project-depth-limit*
                  collect directory
                  until (or (equal directory root)
                            (equal directory

src/configuration/workspace.lisp

@@ -51,10 +51,10 @@ Git marker is its own project identity."
                        (merge-pathnames ".git/" directory))
                       (uiop:file-exists-p (merge-pathnames ".git" directory)))
                   t)))
-    (loop repeat *workspace-project-depth-limit*
-          for directory = working-directory
+    (loop for directory = working-directory
             then (uiop:pathname-parent-directory-pathname directory)
           for parent = (uiop:pathname-parent-directory-pathname directory)
+          repeat *workspace-project-depth-limit*
           when (marker-p directory)
             return directory
           when (equal directory parent)

src/core/platform-win32.lisp

@@ -880,14 +880,14 @@ Autolith publishes read-only lives below a private root anyway."
 (defmethod platform-make-temporary-directory ((platform win32-platform)
                                               parent prefix)
   "Create a private directory named PREFIX plus random characters below PARENT."
-  (loop repeat 100
-        for suffix = (map 'string
+  (loop for suffix = (map 'string
                           (lambda (octet)
                             (char "abcdefghijklmnopqrstuvwxyz0123456789"
                                   (mod octet 36)))
                           (random-data 8))
         for directory = (uiop:ensure-directory-pathname
                          (merge-pathnames (concatenate 'string prefix suffix) parent))
+        repeat 100
         do (cond
              ((not (zerop (win32--create-directory (win32--namestring directory) nil)))
               (win32--set-mode directory #o700)

src/task/agents.lisp

@@ -557,10 +557,10 @@ walking, cycle detection, node limits, and string limits stay in sexp-config."
   "Return the nearest project .autolith/agents directory, or NIL."
   (let* ((start (config :working-directory configuration))
          (root  (workspace-project-root start)))
-    (loop repeat 64
-          for directory = start
+    (loop for directory = start
             then (uiop/pathname:pathname-parent-directory-pathname directory)
           for candidate = (merge-pathnames ".autolith/agents/" directory)
+          repeat 64
           when (uiop/filesystem:directory-exists-p candidate)
             return candidate
           when (equal directory root)

src/task/completions.lisp

@@ -474,11 +474,11 @@ index, and only once delivered or gone; jobs noted since then stay."
     (if identifiers-p
         (loop for identifier in identifiers
               repeat *task-completion-batch-limit*
-              for record = (cl-jobpond:mailbox-receive mailbox :receiver "completion" :id identifier)
-              when record collect record)
+              when (cl-jobpond:mailbox-receive mailbox :receiver "completion" :id identifier)
+                collect it)
         (loop repeat *task-completion-batch-limit*
-              for record = (cl-jobpond:mailbox-receive mailbox :receiver "completion")
-              while record collect record))))
+              collect (or (cl-jobpond:mailbox-receive mailbox :receiver "completion")
+                          (loop-finish))))))
 
 (-> task-completion-deliver (agent &key (:identifiers list)) list)
 (defun task-completion-deliver (agent &key (identifiers nil identifiers-p))

src/task/continuity-tools.lisp

@@ -43,8 +43,8 @@ Offsets refer to execution-ID order in the current inventory, not a snapshot."
                 (list :continuity-list t :offset start :next-offset next
                         :total total :more-p (< next total) :entries entries))))
       (loop for row in (nthcdr start rows)
-            repeat limit
             for trial = (append selected (list row))
+            repeat limit
             if (<= (length (task--write-readable-sexp (page trial)))
                    *task-tool-content-limit*)
               do (setf selected trial)

src/task/tools.lisp

@@ -13,8 +13,8 @@
   (if (not (stringp value))
       value
       (loop with current = value
-            repeat 2
             for trimmed = (task--trim current)
+            repeat 2
             if (and (> (length trimmed) 1)
                     (char= (char trimmed 0) #\QUOTATION_MARK)
                     (char= (char trimmed (1- (length trimmed)))

src/terminal/boot-screen.lisp

@@ -275,8 +275,8 @@ window instead of judging interactivity before it could possibly happen."
 (defun terminal-ui--boot-rotate-tip (ui)
   "Replace the cached startup tip with a different one, when another exists."
   (let ((current (fullscreen-terminal-ui-welcome-tip ui)))
-    (loop repeat 8
-          for candidate = (application--startup-tip-spans)
+    (loop for candidate = (application--startup-tip-spans)
+          repeat 8
           unless (equal candidate current)
             do (setf (fullscreen-terminal-ui-welcome-tip ui) candidate)
                (return)))

tests/fixture-tests.lisp

@@ -253,11 +253,10 @@
   (with-test-fixture (':symbolic-links "long symbolic-link paths")
     (with-test-configuration (configuration root)
       (declare (ignore configuration))
-      (let* ((directory (loop repeat 6
-                             for path = root then (merge-pathnames
-                                                   (format nil "~A/" (make-string 50 :initial-element #\x))
-                                                   path)
-                             finally (return path)))
+      (let* ((directory (merge-pathnames
+                         (format nil "~{~A/~}"
+                                 (make-list 5 :initial-element (make-string 50 :initial-element #\x)))
+                         root))
              (target    (merge-pathnames "target.txt" directory))
              (link      (merge-pathnames "link.txt" directory)))
         (ensure-directories-exist target)

tests/localgroup-handoff-tests.lisp

@@ -807,9 +807,9 @@
                 (terminal--write relay "conversation switched")
                 (test-assert
                  (loop repeat 30
-                       for packet = (test-localgroup--read-packet stream)
-                       thereis (and (eq (first packet) ':output)
-                                    (search "conversation switched" (second packet))))
+                       thereis (let ((packet (test-localgroup--read-packet stream)))
+                                 (and (eq (first packet) ':output)
+                                      (search "conversation switched" (second packet)))))
                  "an attached terminal receives output after conversation changes"))
               (let* ((before     (application-conversation application))
                      (blocked    (conversation-create configuration))

tests/run-job-streaming-tests.lisp

@@ -396,14 +396,14 @@
             (unless (probe-file output)
               (format *error-output* "~&Blocked-exit fixture stdout: ~S~%"
                       (coerce (loop repeat 2000
-                                    for character = (read-char (uiop:process-info-output process) nil nil)
-                                    while character collect character)
+                                    collect (or (read-char (uiop:process-info-output process) nil nil)
+                                                (loop-finish)))
                               'string))
               (when (probe-file error-path)
                 (with-open-file (errors error-path :external-format ':utf-8)
                   (format *error-output* "Blocked-exit fixture stderr: ~S~%"
-                          (coerce (loop repeat 2000 for character = (read-char errors nil nil)
-                                        while character collect character)
+                          (coerce (loop repeat 2000
+                                        collect (or (read-char errors nil nil) (loop-finish)))
                                   'string)))))
             (ignore-errors (close (uiop:process-info-input process)))
             (ignore-errors (close (uiop:process-info-output process))))))))