From 59fef20630abe9950abf0ab967d82cc928ad33eb Mon Sep 17 00:00:00 2001
From: Amr Gharbeia <amr@gharbeia.net>
Date: Sun, 3 May 2026 20:24:08 -0400
Subject: [PATCH] fix: add context-assemble-global-awareness and
 context-get-system-logs aliases
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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.
---
 lisp/core-context.lisp |  7 +++++++
 org/core-context.org   | 20 ++++++++++++++++++++
 2 files changed, 27 insertions(+)

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