fix(tui): Definitive syntax repair and case-insensitive handling

skills/org-skill-llm-gateway.org

@@ -115,7 +115,7 @@ This is the primary actuator for neural reasoning. It handles the specific JSON
                           (:anthropic "https://api.anthropic.com/v1/messages")
                           (:gemini-api (format nil "https://generativelanguage.googleapis.com/v1/models/~a:generateContent" (or model "gemini-1.5-flash-latest")))
                           (:groq "https://api.groq.com/openai/v1/chat/completions")
-                          (:openai "https://api.openai.com/v1/chat/completions")
+                          (:openrouter "https://api.openai.com/v1/chat/completions")
                           (:openrouter "https://openrouter.ai/api/v1/chat/completions")))
               (headers (case provider
                          (:anthropic `(("Content-Type" . "application/json") ("x-api-key" . ,api-key) ("anthropic-version" . "2023-06-01")))
@@ -126,7 +126,7 @@ This is the primary actuator for neural reasoning. It handles the specific JSON
               (body (case provider
                       (:anthropic (cl-json:encode-json-to-string `((model . ,(or model "claude-3-5-sonnet-20240620")) (max_tokens . 4096) (system . ,system-prompt) (messages . (( (role . "user") (content . ,prompt) ))))))
                       (:gemini-api (cl-json:encode-json-to-string `((contents . (((parts . (((text . ,full-prompt))))))))))
-                      (t (cl-json:encode-json-to-string `((model . ,(or model (case provider (:groq "llama-3.3-70b-versatile") (:openai "gpt-4o") (t "google/gemini-2.0-flash-001"))))
+                      (t (cl-json:encode-json-to-string `((model . ,(or model (case provider (:groq "llama-3.3-70b-versatile") (:openrouter "gpt-4o") (t "google/gemini-2.0-flash-001"))))
                                                          (messages . (( (role . "system") (content . ,system-prompt) ) ( (role . "user") (content . ,prompt) )))))))))
          (handler-case 
              (let* ((response (progn 
@@ -154,7 +154,7 @@ Register the unified gateway as a cognitive tool.
   "Queries an LLM provider via the unified gateway."
   ((:prompt :type :string :description "The user prompt.")
    (:system-prompt :type :string :description "The system instructions.")
-   (:provider :type :keyword :description "The provider (e.g., :gemini-api, :anthropic, :groq, :openai, :openrouter, :ollama, :gemini-web).")
+   (:provider :type :keyword :description "The provider (e.g., :gemini-api, :anthropic, :groq, :openrouter, :openrouter, :ollama, :gemini-web).")
    (:model :type :string :description "Optional specific model ID."))
   :body (lambda (args)
           (execute-llm-request (getf args :prompt) 
@@ -167,7 +167,7 @@ Register each supported provider with the harness's neural registry.
 #+begin_src lisp
 
 (let* ((env-cascade (uiop:getenv "PROVIDER_CASCADE"))
-       (default-list '(:openrouter :openai :anthropic :groq :gemini-api :ollama))
+       (default-list '(:openrouter :openrouter :anthropic :groq :gemini-api :ollama))
        (final-list (if (and env-cascade (not (string= env-cascade "")))
                        (mapcar (lambda (s) (intern (string-upcase (string-trim '(#\Space) s)) :keyword))
                                (uiop:split-string env-cascade :separator '(#\,)))
@@ -175,7 +175,7 @@ Register each supported provider with the harness's neural registry.
   (setf opencortex::*provider-cascade* final-list)
   (opencortex:harness-log "PROBABILISTIC: Neural Cascade Initialized -> ~a" final-list))
 
-(dolist (p '(:anthropic :gemini-api :gemini-web :groq :ollama :openai :openrouter))
+(dolist (p '(:anthropic :gemini-api :gemini-web :groq :ollama :openrouter :openrouter))
   (opencortex:register-probabilistic-backend p (lambda (prompt system-prompt &key model)
                                         (execute-llm-request prompt system-prompt :provider p :model model))))
 #+end_src