diff --git a/lisp/core-context.lisp b/lisp/core-context.lisp index 1419b83..70aeab2 100644 --- a/lisp/core-context.lisp +++ b/lisp/core-context.lisp @@ -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)) diff --git a/org/core-context.org b/org/core-context.org index 29ad31d..5db5db3 100644 --- a/org/core-context.org +++ b/org/core-context.org @@ -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