17 lines
743 B
Common Lisp
17 lines
743 B
Common Lisp
(in-package :org-agent)
|
|
|
|
(defun economist-route-task (context)
|
|
(declare (ignore context))
|
|
'(:openrouter))
|
|
|
|
(defun economist-get-model-for-provider (provider &optional context)
|
|
"Returns 100% Free/Subsidized model IDs from OpenRouter. Updated April 2026."
|
|
(let ((complexity (ignore-errors (uiop:symbol-call :org-agent.skills.org-skill-router :router-classify-complexity context))))
|
|
(case provider
|
|
(:openrouter
|
|
(case complexity
|
|
(:REASONING "meta-llama/llama-3.3-70b-instruct:free") ; High fidelity, zero cost
|
|
(:COGNITION "qwen/qwen3.6-plus:free") ; Latest interaction, zero cost
|
|
(t "meta-llama/llama-3.2-3b-instruct:free"))) ; Ultra-fast reflex, zero cost
|
|
(t nil))))
|