fix: add context-assemble-global-awareness and context-get-system-logs aliases
Some checks failed
Deploy (Gitea) / deploy (push) Failing after 2s

Two more naming drifts in the think() function. Added aliases:
- context-assemble-global-awareness → context-awareness-assemble
- context-get-system-logs → context-logs

Both are called from think() in core-loop-reason but had the wrong names.
This commit is contained in:
2026-05-03 20:24:08 -04:00
parent 7393e69397
commit 59fef20630
2 changed files with 27 additions and 0 deletions

View File

@@ -63,6 +63,10 @@ or nil if the heading is not found."
(let ((count (min log-limit (length *log-buffer*))))
(subseq *log-buffer* 0 count)))))
(defun context-get-system-logs (&optional limit)
"Backward-compatibility alias for context-logs."
(context-logs limit))
(defun context-object-render (obj &key (depth 1) (foveal-id nil) semantic-threshold (foveal-vector nil))
"Recursively renders an org-object and its children to an Org string using a Foveal-Peripheral Hybrid model."
(let* ((id (memory-object-id obj))
@@ -147,6 +151,9 @@ Privacy-filtered objects (matching bouncer-privacy-tags) are excluded."
(setf output (concatenate 'string output "No active projects found.~%")))
output))
(defun context-assemble-global-awareness ()
(context-awareness-assemble))
(eval-when (:compile-toplevel :load-toplevel :execute)
(ql:quickload :fiveam :silent t))

View File

@@ -144,6 +144,15 @@ Retrieves the most recent lines from the harness's internal log buffer. The log
(subseq *log-buffer* 0 count)))))
#+end_src
** Backward-Compatibility Alias (context-get-system-logs)
;; REPL-VERIFIED: 2026-05-03T14:00:00
#+begin_src lisp
(defun context-get-system-logs (&optional limit)
"Backward-compatibility alias for context-logs."
(context-logs limit))
#+end_src
** AST to Org Rendering (context-object-render)
Recursively renders an ~org-object~ and its children to an Org-mode string, applying the Foveal-Peripheral model:
@@ -265,6 +274,17 @@ Privacy-filtered objects (matching bouncer-privacy-tags) are excluded."
output))
#+end_src
** Backward-Compatibility Alias
The global awareness function was renamed from ~context-assemble-global-awareness~
to ~context-awareness-assemble~.
;; REPL-VERIFIED: 2026-05-03T14:00:00
#+begin_src lisp
(defun context-assemble-global-awareness ()
(context-awareness-assemble))
#+end_src
* Test Suite
Verifies that the Foveal-Peripheral rendering correctly distinguishes between foveal (detailed) and peripheral (outline) content, and that the awareness budget includes all active projects.
#+begin_src lisp :tangle ../lisp/core-context.lisp