fix: add context-assemble-global-awareness and context-get-system-logs aliases
Some checks failed
Deploy (Gitea) / deploy (push) Failing after 2s
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:
@@ -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))
|
||||
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user