From 91a45286fd105253b3799896969b0df9bcc28eff Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Luk=C3=A1=C5=A1=20Hozda?= Date: Wed, 28 Oct 2026 11:02:06 +0100 Subject: [PATCH 01/15] Put the AGENTS.md walk's repeat after its for clause --- src/agent/prompt.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/agent/prompt.lisp b/src/agent/prompt.lisp index 0084f5bb..848aa76e 100644 --- a/src/agent/prompt.lisp +++ b/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 From 0950ea6e21e7debd6af8fd699080713d8cf3fc1d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Luk=C3=A1=C5=A1=20Hozda?= Date: Wed, 28 Oct 2026 11:02:06 +0100 Subject: [PATCH 02/15] Put the project root walk's repeat after its for clauses --- src/configuration/workspace.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/configuration/workspace.lisp b/src/configuration/workspace.lisp index af218213..bab2636a 100644 --- a/src/configuration/workspace.lisp +++ b/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) From a415f5146264f3ba8a16677184668a1a8971434e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Luk=C3=A1=C5=A1=20Hozda?= Date: Wed, 28 Oct 2026 11:02:06 +0100 Subject: [PATCH 03/15] Put the Win32 temporary name loop's repeat last --- src/core/platform-win32.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/core/platform-win32.lisp b/src/core/platform-win32.lisp index 90aaec3d..5622fdfb 100644 --- a/src/core/platform-win32.lisp +++ b/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) From b18e07168c9670ad0293a1b7d9062a01d87afc6a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Luk=C3=A1=C5=A1=20Hozda?= Date: Wed, 28 Oct 2026 11:02:06 +0100 Subject: [PATCH 04/15] Put the agents directory walk's repeat after its for clauses --- src/task/agents.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/task/agents.lisp b/src/task/agents.lisp index 29f377ed..3f51612e 100644 --- a/src/task/agents.lisp +++ b/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) From 70908efd02ff19e7bafbe77bdc872bf3b67eafd4 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Luk=C3=A1=C5=A1=20Hozda?= Date: Wed, 28 Oct 2026 11:02:06 +0100 Subject: [PATCH 05/15] Receive completions without a for clause after repeat --- src/task/completions.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/task/completions.lisp b/src/task/completions.lisp index d787a6fb..dc2219f1 100644 --- a/src/task/completions.lisp +++ b/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)) From b678492c5555ef071d0d6bdd893c139824fea0dc Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Luk=C3=A1=C5=A1=20Hozda?= Date: Wed, 28 Oct 2026 11:02:06 +0100 Subject: [PATCH 06/15] Put the continuity page loop's repeat after its for clauses --- src/task/continuity-tools.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/task/continuity-tools.lisp b/src/task/continuity-tools.lisp index 35ce11b6..c37e0e3c 100644 --- a/src/task/continuity-tools.lisp +++ b/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) From fc44d36352446722fb4faa38945b32e2b6925b7e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Luk=C3=A1=C5=A1=20Hozda?= Date: Wed, 28 Oct 2026 11:02:06 +0100 Subject: [PATCH 07/15] Put the quoted value unwrap loop's repeat after its for clause --- src/task/tools.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/task/tools.lisp b/src/task/tools.lisp index d722360b..e2c26275 100644 --- a/src/task/tools.lisp +++ b/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))) From a4bc06c8bb75b622f02be63dfa0aa0a32021a304 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Luk=C3=A1=C5=A1=20Hozda?= Date: Wed, 28 Oct 2026 11:02:06 +0100 Subject: [PATCH 08/15] Put the tip rotation loop's repeat after its for clause --- src/terminal/boot-screen.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/terminal/boot-screen.lisp b/src/terminal/boot-screen.lisp index 2db1b80c..2bce6487 100644 --- a/src/terminal/boot-screen.lisp +++ b/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))) From 197f5ffb7f3409371234f4ba20441e42d882b854 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Luk=C3=A1=C5=A1=20Hozda?= Date: Wed, 28 Oct 2026 11:02:06 +0100 Subject: [PATCH 09/15] Keep test loops free of for clauses after repeat --- tests/fixture-tests.lisp | 9 ++++----- tests/localgroup-handoff-tests.lisp | 6 +++--- tests/run-job-streaming-tests.lisp | 8 ++++---- 3 files changed, 11 insertions(+), 12 deletions(-) diff --git a/tests/fixture-tests.lisp b/tests/fixture-tests.lisp index 9d003687..7b3b374e 100644 --- a/tests/fixture-tests.lisp +++ b/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) diff --git a/tests/localgroup-handoff-tests.lisp b/tests/localgroup-handoff-tests.lisp index a83efea7..49fc4d07 100644 --- a/tests/localgroup-handoff-tests.lisp +++ b/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)) diff --git a/tests/run-job-streaming-tests.lisp b/tests/run-job-streaming-tests.lisp index 63c1bcf7..7b3b5f6b 100644 --- a/tests/run-job-streaming-tests.lisp +++ b/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)))))))) From e71d0229ec0f0ac4129ab4018772aceea36a8284 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Luk=C3=A1=C5=A1=20Hozda?= Date: Wed, 28 Oct 2026 11:04:09 +0100 Subject: [PATCH 10/15] Pin cl-jobpond after its LOOP repeat cleanup --- qlfile | 2 +- qlfile.lock | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/qlfile b/qlfile index 08a91d93..bc0dae43 100644 --- a/qlfile +++ b/qlfile @@ -20,7 +20,7 @@ git cl-colorist https://github.com/lambda-symbolics/cl-colorist.git :ref 90f17af 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 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 diff --git a/qlfile.lock b/qlfile.lock index 5b09139f..43122ceb 100644 --- a/qlfile.lock +++ b/qlfile.lock @@ -88,8 +88,8 @@ :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") From 1dc3e153135b53a276d9b7bc9cdac798350216a2 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Luk=C3=A1=C5=A1=20Hozda?= Date: Wed, 28 Oct 2026 11:04:09 +0100 Subject: [PATCH 11/15] Pin cl-lsp after its LOOP repeat cleanup --- qlfile | 2 +- qlfile.lock | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/qlfile b/qlfile index bc0dae43..b9cf8eda 100644 --- a/qlfile +++ b/qlfile @@ -25,7 +25,7 @@ git clinker-transcript https://github.com/lambda-symbolics/clinker-transcript.gi 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 diff --git a/qlfile.lock b/qlfile.lock index 43122ceb..3c65709f 100644 --- a/qlfile.lock +++ b/qlfile.lock @@ -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") From 888f88af6f15ca3c19d94b749a63f63b4fa05adc Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Luk=C3=A1=C5=A1=20Hozda?= Date: Wed, 28 Oct 2026 11:04:09 +0100 Subject: [PATCH 12/15] Pin clinedi after its LOOP repeat cleanup --- qlfile | 2 +- qlfile.lock | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/qlfile b/qlfile index b9cf8eda..07940865 100644 --- a/qlfile +++ b/qlfile @@ -18,7 +18,7 @@ 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 148649aa6f1e998db5bbe807dc934d6b6e2762a1 git clinker-transcript https://github.com/lambda-symbolics/clinker-transcript.git :ref 1a2af5d4c7441fe756ead213c96a7f332ea8ce25 diff --git a/qlfile.lock b/qlfile.lock index 3c65709f..8b68155d 100644 --- a/qlfile.lock +++ b/qlfile.lock @@ -80,8 +80,8 @@ :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") From 9426484edd5955dcc764d6ab98dde543d69a3b9b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Luk=C3=A1=C5=A1=20Hozda?= Date: Wed, 28 Oct 2026 11:04:09 +0100 Subject: [PATCH 13/15] Pin lambda-debugger after its LOOP repeat cleanup --- qlfile | 2 +- qlfile.lock | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/qlfile b/qlfile index 07940865..246ccc18 100644 --- a/qlfile +++ b/qlfile @@ -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 diff --git a/qlfile.lock b/qlfile.lock index 8b68155d..e3bc9c68 100644 --- a/qlfile.lock +++ b/qlfile.lock @@ -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") From 212685838db0a8652800ea8e5d500f803887f159 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Luk=C3=A1=C5=A1=20Hozda?= Date: Wed, 28 Oct 2026 11:04:09 +0100 Subject: [PATCH 14/15] Pin ls-compat after its LOOP repeat cleanup --- qlfile | 2 +- qlfile.lock | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/qlfile b/qlfile index 246ccc18..b7a3dd0b 100644 --- a/qlfile +++ b/qlfile @@ -40,7 +40,7 @@ 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 diff --git a/qlfile.lock b/qlfile.lock index e3bc9c68..af878399 100644 --- a/qlfile.lock +++ b/qlfile.lock @@ -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") From 10c722cd9d70f87f187c6cf17f9ed905c894b3ff Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Luk=C3=A1=C5=A1=20Hozda?= Date: Wed, 28 Oct 2026 11:04:09 +0100 Subject: [PATCH 15/15] Pin mcparen after its LOOP repeat cleanup --- qlfile | 2 +- qlfile.lock | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/qlfile b/qlfile index b7a3dd0b..6fcc22ce 100644 --- a/qlfile +++ b/qlfile @@ -43,7 +43,7 @@ git image-daemon https://github.com/lambda-symbolics/image-daemon.git :ref fa5a8 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 diff --git a/qlfile.lock b/qlfile.lock index af878399..c60effd4 100644 --- a/qlfile.lock +++ b/qlfile.lock @@ -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")