fix(gateway): Case-insensitive key lookup in get-nested (OpenRouter response fix)

2026-04-19 17:35:25 -04:00
parent ec1f4af623
commit 63e7e9ce32
1 changed files with 3 additions and 1 deletions
--- a/skills/org-skill-llm-gateway.org
+++ b/skills/org-skill-llm-gateway.org
@@ -70,7 +70,9 @@ A robust utility to navigate deeply nested JSON alists produced by `cl-json`, ha
      ;; Descend into arrays
      (loop while (and (listp val) (listp (car val)) (not (keywordp (caar val))))
            do (setf val (car val)))
-      (let ((pair (assoc k val)))
+      (let ((pair (or (assoc k val)
+                            (assoc (intern (string-upcase (string k)) :keyword) val)
+                            (assoc (intern (string-downcase (string k)) :keyword) val))))
        (if pair
            (setf val (cdr pair))
            (return-from get-nested nil))))