From 63e7e9ce32af9f212e5b5a3ad1f2931d9794db84 Mon Sep 17 00:00:00 2001 From: Amr Gharbeia Date: Sun, 19 Apr 2026 17:35:25 -0400 Subject: [PATCH] fix(gateway): Case-insensitive key lookup in get-nested (OpenRouter response fix) --- skills/org-skill-llm-gateway.org | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/skills/org-skill-llm-gateway.org b/skills/org-skill-llm-gateway.org index d801577..c1a1a10 100644 --- 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))))