feat(arch): implement 'Code as Thought' architecture and formalize PSF Consensus Loop

notes/org-skill-provider-anthropic.org

@@ -1 +0,0 @@
-../system/skills/org-skill-provider-anthropic.org

notes/org-skill-provider-anthropic.org

@@ -0,0 +1,72 @@
+#+TITLE: SKILL: Anthropic Provider Agent (Universal Literate Note)
+#+ID: skill-provider-anthropic
+#+STARTUP: content
+#+FILETAGS: :llm:provider:anthropic:claude:psf:
+
+* Overview
+The **Anthropic Provider Agent** integrates Anthropic's Claude family of models as a pluggable System 1 (neural) backend. It enables high-intelligence reasoning, drafting, and analysis within the PSF.
+
+* Phase A: Demand (PRD)
+:PROPERTIES:
+:STATUS: FROZEN
+:END:
+
+** 1. Purpose
+Define the interface for reliable communication with the Anthropic Messages API.
+
+** 2. User Needs
+- **Connectivity:** Reliable I/O with Claude models.
+- **Configurability:** Model selection via Environment Configuration.
+- **Context Management:** Leverage Claude's large context windows.
+- **Safety:** Graceful error handling for API failures or missing keys.
+
+** 3. Success Criteria
+*** TODO API Authentication
+*** TODO Model Resolution Loop
+*** TODO Response Parsing Verification
+
+* Phase B: Blueprint (PROTOCOL)
+:PROPERTIES:
+:STATUS: SIGNED
+:END:
+
+** 1. Architectural Intent
+Interfaces for executing neural completion requests. Source of truth is the Anthropic API and `$ANTHROPIC_API_KEY`.
+
+** 2. Semantic Interfaces
+#+begin_src lisp
+(defun execute-anthropic-request (prompt system-prompt)
+  "Executes a completion request via the Anthropic API.")
+
+(defun get-anthropic-models ()
+  "Returns supported models and their context limits.")
+#+end_src
+
+* Phase D: Build (Implementation)
+
+** Request Execution
+#+begin_src lisp :tangle projects/org-skill-provider-anthropic/src/provider-logic.lisp
+(defun execute-anthropic-request (prompt system-prompt)
+  (let ((api-key (uiop:getenv "ANTHROPIC_API_KEY")))
+    (unless api-key (return-from execute-anthropic-request "ERROR: Key missing"))
+    (let ((model (get-config-attribute :LLM_MODEL_ANTHROPIC "claude-3-5-sonnet-20240620")))
+      ;; Physical API call logic (mocked for refactor)
+      (format nil "Executing Anthropic request on ~a" model))))
+#+end_src
+
+** Model Discovery
+#+begin_src lisp :tangle projects/org-skill-provider-anthropic/src/provider-logic.lisp
+(defun get-anthropic-models ()
+  '((:id "claude-3-5-sonnet-20240620" :context "200k")
+    (:id "claude-3-opus-20240229" :context "200k")
+    (:id "claude-3-haiku-20240307" :context "200k")))
+#+end_src
+
+* Registration
+#+begin_src lisp
+(defskill :skill-provider-anthropic
+  :priority 100
+  :trigger (lambda (context) nil)
+  :neuro (lambda (context) nil)
+  :symbolic (lambda (action context) action))
+#+end_src