PSF: Stabilizing workspace after crash. Valid kernel/skill fixes.

notes/org-skill-provider-openrouter.org

@@ -40,7 +40,7 @@ Interfaces for executing neural completion requests via the unified OpenRouter g
 * Phase D: Build (Implementation)
 
 ** Tiered Model Resolution
-#+begin_src lisp
+#+begin_src lisp :tangle ../projects/org-skill-provider-openrouter/src/provider-logic.lisp
 (defun get-openrouter-tiered-model (tier)
   (case tier
     (:powerful "anthropic/claude-3.5-sonnet")
@@ -50,7 +50,7 @@ Interfaces for executing neural completion requests via the unified OpenRouter g
 #+end_src
 
 ** Request Execution
-#+begin_src lisp
+#+begin_src lisp :tangle ../projects/org-skill-provider-openrouter/src/provider-logic.lisp
 (defun execute-openrouter-request (prompt system-prompt)
   (let ((api-key (uiop:getenv "OPENROUTER_API_KEY"))
         (endpoint "https://openrouter.ai/api/v1/chat/completions"))
@@ -70,7 +70,7 @@ Interfaces for executing neural completion requests via the unified OpenRouter g
                                  ( (role . "user") (content . ,prompt) )))))))
       
       (handler-case
-          (let* ((response (dex:post endpoint :headers headers :content body))
+          (let* ((response (dex:post endpoint :headers headers :content body :connect-timeout 10 :read-timeout 30))
                  (json (cl-json:decode-json-from-string response)))
             ;; Extract content from OpenAI-style response: choices[0].message.content
             (cdr (assoc :content (cdr (assoc :message (car (cdr (assoc :choices json))))))))