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

fix(gateway): Repair malformed handler-case syntax in LLM Gateway
Some checks failed
Deploy-Agent-V15-Stdin / JOB-V15-STDIN (push) Failing after 2s
Details

Browse Source
This commit is contained in:
Amr Gharbeia
2026-04-19 17:32:53 -04:00
parent 0f49356886
commit ec1f4af623
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -127,8 +127,9 @@ This is the primary actuator for neural reasoning. It handles the specific JSON
(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") (:openai "gpt-4o") (t "google/gemini-2.0-flash-001"))))
(messages . (( (role . "system") (content . ,system-prompt) ) ( (role . "user") (content . ,prompt) ))))))))) (messages . (( (role . "system") (content . ,system-prompt) ) ( (role . "user") (content . ,prompt) )))))))))
(handler-case (handler-case
(let* ((response (progn
(harness-log "LLM DEBUG: Sending body to ~a: ~a" endpoint body) (harness-log "LLM DEBUG: Sending body to ~a: ~a" endpoint body)
(let* ((response (dex:post endpoint :headers headers :content body :connect-timeout 10 :read-timeout 30)) (dex:post endpoint :headers headers :content body :connect-timeout 10 :read-timeout 30)))
(json (cl-json:decode-json-from-string response))) (json (cl-json:decode-json-from-string response)))
(harness-log "LLM DEBUG: Raw Response: ~a" response) (harness-log "LLM DEBUG: Raw Response: ~a" response)
(let ((content (case provider (let ((content (case provider