fix(chaos): standardize tangle paths to robust (identity (getenv ...))

This commit is contained in:
2026-04-28 17:54:12 -04:00
parent 00c3f8ef69
commit 635db05d17
35 changed files with 164 additions and 164 deletions

View File

@@ -1,4 +1,4 @@
#+PROPERTY: header-args:lisp :tangle (expand-file-name "context.lisp" (concat (or (uiop:getenv "INSTALL_DIR") ".") "/harness"))
#+PROPERTY: header-args:lisp :tangle (expand-file-name "context.lisp" (concat (or (identity (getenv "INSTALL_DIR")) ".") "/harness"))
#+TITLE: Peripheral Vision (context.lisp)
#+AUTHOR: Amr
#+FILETAGS: :harness:context:
@@ -217,7 +217,7 @@ The primary entry point for context generation. This function identifies active
Following the Engineering Standards, the peripheral vision extraction and rendering logic must be empirically verified.
** Test Suite Context
#+begin_src lisp :tangle (expand-file-name "peripheral-vision-tests.lisp" (concat (or (uiop:getenv "INSTALL_DIR") ".") "/tests"))
#+begin_src lisp :tangle (expand-file-name "peripheral-vision-tests.lisp" (concat (or (identity (getenv "INSTALL_DIR")) ".") "/tests"))
(defpackage :opencortex-peripheral-vision-tests
(:use :cl :fiveam :opencortex)
(:export #:vision-suite))
@@ -231,7 +231,7 @@ Following the Engineering Standards, the peripheral vision extraction and render
** Foveal Rendering Test
Verify that the foveal target is rendered with content, while siblings are skeletal.
#+begin_src lisp :tangle (expand-file-name "peripheral-vision-tests.lisp" (concat (or (uiop:getenv "INSTALL_DIR") ".") "/tests"))
#+begin_src lisp :tangle (expand-file-name "peripheral-vision-tests.lisp" (concat (or (identity (getenv "INSTALL_DIR")) ".") "/tests"))
(test test-foveal-rendering
"Verify that the foveal target is rendered with content, while siblings are skeletal."
(clrhash opencortex::*memory*)
@@ -251,7 +251,7 @@ Verify that the foveal target is rendered with content, while siblings are skele
** Awareness Budget Test
Verify that context-assemble-global-awareness handles multiple projects correctly.
#+begin_src lisp :tangle (expand-file-name "peripheral-vision-tests.lisp" (concat (or (uiop:getenv "INSTALL_DIR") ".") "/tests"))
#+begin_src lisp :tangle (expand-file-name "peripheral-vision-tests.lisp" (concat (or (identity (getenv "INSTALL_DIR")) ".") "/tests"))
(test test-awareness-budget
"Verify that context-assemble-global-awareness handles multiple projects."
(clrhash opencortex::*memory*)