chore: Audit terminology (org-agent -> opencortex)
This commit is contained in:
@@ -31,7 +31,7 @@ Maintain a state-aware provider cascade that routes around "pain" (failures) and
|
||||
|
||||
*** Routing and Pain Management
|
||||
#+begin_src lisp :tangle ../src/accountant-logic.lisp
|
||||
(in-package :org-agent)
|
||||
(in-package :opencortex)
|
||||
|
||||
(defvar *provider-pain-table* (make-hash-table :test 'equal))
|
||||
|
||||
@@ -54,7 +54,7 @@ Maintain a state-aware provider cascade that routes around "pain" (failures) and
|
||||
|
||||
(defun token-accountant-get-model-for-provider (provider &optional context)
|
||||
"Returns the recommended model for the provider, prioritizing free/subsidized models. Updated April 2026."
|
||||
(let ((complexity (ignore-errors (uiop:symbol-call :org-agent.skills.org-skill-router :router-classify-complexity context))))
|
||||
(let ((complexity (ignore-errors (uiop:symbol-call :opencortex.skills.org-skill-router :router-classify-complexity context))))
|
||||
(case provider
|
||||
(:openrouter
|
||||
(case complexity
|
||||
@@ -71,8 +71,8 @@ Maintain a state-aware provider cascade that routes around "pain" (failures) and
|
||||
|
||||
(defun token-accountant-patch-kernel ()
|
||||
"Hot-patches the harness's cascade and model selector to use our dynamic logic."
|
||||
(setf org-agent:*provider-cascade* #'token-accountant-get-cascade)
|
||||
(setf org-agent::*model-selector-fn* #'token-accountant-get-model-for-provider))
|
||||
(setf opencortex:*provider-cascade* #'token-accountant-get-cascade)
|
||||
(setf opencortex::*model-selector-fn* #'token-accountant-get-model-for-provider))
|
||||
#+end_src
|
||||
|
||||
* Registration
|
||||
|
||||
Reference in New Issue
Block a user