amr/passepartout
1
0
Fork 0
Code Issues 15 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

fix(kernel): Definitive repair of parenthesis imbalance in context.org
Some checks failed
Deploy-Agent-V15-Stdin / JOB-V15-STDIN (push) Failing after 2s
Details

Browse Source
This commit is contained in:
Amr Gharbeia
2026-04-19 16:21:19 -04:00
parent 7a5c4f0b18
commit 59140b0e64
2 changed files with 0 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
literate/context.org
View File

@@ -191,13 +191,6 @@ A utility function that expands environment variables (like ~$HOME~ or ~$MEMEX_R
(setf result (ppcre:regex-replace (format nil "\\$~a" var-name) result var-val))))) (setf result (ppcre:regex-replace (format nil "\\$~a" var-name) result var-val)))))
result) result)
path))) path)))
(let ((result path-string))
(ppcre:do-register-groups (var-name) ("\\$([A-Za-z0-9_]+)" path-string)
(let ((var-val (uiop:getenv var-name)))
(when var-val
(setf result (ppcre:regex-replace (format nil "\\$~a" var-name) result var-val)))))
result)
path-string))
#+end_src #+end_src
** Global Awareness (context-assemble-global-awareness) ** Global Awareness (context-assemble-global-awareness)

7
src/context.lisp
View File

@@ -103,13 +103,6 @@
(setf result (ppcre:regex-replace (format nil "\\$~a" var-name) result var-val))))) (setf result (ppcre:regex-replace (format nil "\\$~a" var-name) result var-val)))))
result) result)
path))) path)))
(let ((result path-string))
(ppcre:do-register-groups (var-name) ("\\$([A-Za-z0-9_]+)" path-string)
(let ((var-val (uiop:getenv var-name)))
(when var-val
(setf result (ppcre:regex-replace (format nil "\\$~a" var-name) result var-val)))))
result)
path-string))
(defun context-assemble-global-awareness (&optional signal) (defun context-assemble-global-awareness (&optional signal)
"Produces a high-level skeletal outline of the current Memory for the LLM." "Produces a high-level skeletal outline of the current Memory for the LLM."