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

projects/org-skill-provider-openrouter/src/provider-logic.lisp

@@ -0,0 +1,32 @@
+(defun get-openrouter-tiered-model (tier)
+  (case tier
+    (:powerful "anthropic/claude-3.5-sonnet")
+    (:fast "google/gemini-2.0-flash-001")
+    (:free "openrouter/auto")
+    (t "openrouter/auto")))
+
+(defun execute-openrouter-request (prompt system-prompt)
+  (let ((api-key (uiop:getenv "OPENROUTER_API_KEY"))
+        (endpoint "https://openrouter.ai/api/v1/chat/completions"))
+    
+    (unless api-key 
+      (return-from execute-openrouter-request 
+        "(:type :LOG :payload (:text \"OpenRouter API Key missing in environment\"))"))
+    
+    (let* ((model (get-openrouter-tiered-model :fast))
+           (headers `(("Content-Type" . "application/json")
+                      ("Authorization" . ,(format nil "Bearer ~a" api-key))
+                      ("HTTP-Referer" . "https://github.com/amr/org-agent")
+                      ("X-Title" . "org-agent Sovereign Kernel")))
+           (body (cl-json:encode-json-to-string
+                  `((model . ,model)
+                    (messages . (( (role . "system") (content . ,system-prompt) )
+                                 ( (role . "user") (content . ,prompt) )))))))
+      
+      (handler-case
+          (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))))))))
+        (error (c)
+          (format nil "(:type :LOG :payload (:text \"OpenRouter Error: ~a\"))" c))))))