amr/passepartout
1
0
Fork 0
Code Issues 15 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

fix(gateway): Case-insensitive key lookup in get-nested (OpenRouter response fix)
Some checks failed
Deploy-Agent-V15-Stdin / JOB-V15-STDIN (push) Failing after 3s
Details

Browse Source
This commit is contained in:
Amr Gharbeia
2026-04-19 17:35:25 -04:00
parent ec1f4af623
commit 63e7e9ce32
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
skills/org-skill-llm-gateway.org
View File

@@ -70,7 +70,9 @@ A robust utility to navigate deeply nested JSON alists produced by `cl-json`, ha
;; Descend into arrays ;; Descend into arrays
(loop while (and (listp val) (listp (car val)) (not (keywordp (caar val)))) (loop while (and (listp val) (listp (car val)) (not (keywordp (caar val))))
do (setf val (car 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 (if pair
(setf val (cdr pair)) (setf val (cdr pair))
(return-from get-nested nil)))) (return-from get-nested nil))))