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))
|
||||
|
||||
|
||||
Reference in New Issue
Block a user