From a2ede2dd89951acfd92b82fe8e0cac3f9ec641fc Mon Sep 17 00:00:00 2001 From: Amr Gharbeia Date: Tue, 5 May 2026 16:25:28 -0400 Subject: [PATCH] fix: pre-existing paren imbalances in programming-org and system-archivist tests --- lisp/programming-org.lisp | 10 +++++++--- lisp/system-archivist.lisp | 2 +- org/programming-org.org | 10 +++++++--- org/system-archivist.org | 2 +- 4 files changed, 16 insertions(+), 8 deletions(-) diff --git a/lisp/programming-org.lisp b/lisp/programming-org.lisp index 07761cc..89f75dc 100644 --- a/lisp/programming-org.lisp +++ b/lisp/programming-org.lisp @@ -298,9 +298,13 @@ AST format: (:TYPE :HEADLINE :properties (:ID ... :TITLE ... :TAGS (...)) (test test-org-headline-find-by-id "Contract 6: org-headline-find-by-id finds a headline by ID." - (let ((ast (list :type :HEADLINE :properties (list :ID "root" :TITLE "Root") - :contents (list (list :type :HEADLINE :properties (list :ID "child1" :TITLE "Child")) - (list :type :HEADLINE :properties (list :ID "child2" :TITLE "Child 2"))))))) + (let* ((ast (list :type :HEADLINE + :properties (list :ID "root" :TITLE "Root") + :contents + (list (list :type :HEADLINE + :properties (list :ID "child1" :TITLE "Child")) + (list :type :HEADLINE + :properties (list :ID "child2" :TITLE "Child 2")))))) (let ((found (org-headline-find-by-id ast "child2"))) (is (not (null found))) (is (string= "Child 2" (getf (getf found :properties) :TITLE)))) diff --git a/lisp/system-archivist.lisp b/lisp/system-archivist.lisp index a4e315b..bd267e7 100644 --- a/lisp/system-archivist.lisp +++ b/lisp/system-archivist.lisp @@ -276,4 +276,4 @@ and dispatches as needed. Called by the deterministic gate." "Expected note creation to return T") (is (uiop:file-exists-p (merge-pathnames "test_note.org" tmp-dir)) "Expected file test_note.org to exist")) - (uiop:delete-directory-tree (uiop:ensure-directory-pathname tmp-dir) :validate t)))) + (uiop:delete-directory-tree (uiop:ensure-directory-pathname tmp-dir) :validate t))))) diff --git a/org/programming-org.org b/org/programming-org.org index d7884a7..98ebc38 100644 --- a/org/programming-org.org +++ b/org/programming-org.org @@ -402,9 +402,13 @@ Verification of the structural manipulation for Org-mode files and their AST rep (test test-org-headline-find-by-id "Contract 6: org-headline-find-by-id finds a headline by ID." - (let ((ast (list :type :HEADLINE :properties (list :ID "root" :TITLE "Root") - :contents (list (list :type :HEADLINE :properties (list :ID "child1" :TITLE "Child")) - (list :type :HEADLINE :properties (list :ID "child2" :TITLE "Child 2"))))))) + (let* ((ast (list :type :HEADLINE + :properties (list :ID "root" :TITLE "Root") + :contents + (list (list :type :HEADLINE + :properties (list :ID "child1" :TITLE "Child")) + (list :type :HEADLINE + :properties (list :ID "child2" :TITLE "Child 2")))))) (let ((found (org-headline-find-by-id ast "child2"))) (is (not (null found))) (is (string= "Child 2" (getf (getf found :properties) :TITLE)))) diff --git a/org/system-archivist.org b/org/system-archivist.org index 8e83c60..4a7980b 100644 --- a/org/system-archivist.org +++ b/org/system-archivist.org @@ -377,5 +377,5 @@ and dispatches as needed. Called by the deterministic gate." "Expected note creation to return T") (is (uiop:file-exists-p (merge-pathnames "test_note.org" tmp-dir)) "Expected file test_note.org to exist")) - (uiop:delete-directory-tree (uiop:ensure-directory-pathname tmp-dir) :validate t)))) + (uiop:delete-directory-tree (uiop:ensure-directory-pathname tmp-dir) :validate t))))) #+end_src \ No newline at end of file