REFACTOR: Explanatory Core Architecture & Terminology Alignment

skills/org-skill-policy-enforcer.org

@@ -0,0 +1,31 @@
+:PROPERTIES:
+:ID:       9d3fe6c3-904c-4750-ad37-0364ad0c4dde
+:CREATED:  [2026-04-12 Sun 20:00]
+:END:
+#+TITLE: SKILL: Policy Enforcer
+#+STARTUP: content
+#+FILETAGS: :security:alignment:policy:psf:
+#+DEPENDS_ON: id:47425a43-2be0-423c-8509-22592cfe9c9e
+
+* Overview
+The *Policy Enforcer* is the deterministic gate that ensures all probabilistic proposals adhere to the Core Invariants defined in the [[id:47425a43-2be0-423c-8509-22592cfe9c9e][System Policy]].
+
+* Implementation
+
+#+begin_src lisp :tangle ../src/policy-enforcer.lisp
+(in-package :org-agent)
+
+(defskill :skill-policy-enforcer
+  :priority 1000 ; Absolute highest priority
+  :trigger (lambda (context) t) ; Always active as a fallback
+  :neuro (lambda (context)
+           "You are the Org-Agent Policy Enforcer. Your goal is to ensure all actions empower the user through the Lisp Machine and adhere to the System Policy.")
+  :symbolic (lambda (action context)
+              ;; Basic invariant check: Block actions that appear to violate sovereignty
+              (let ((payload (getf action :payload)))
+                (if (and payload (search "proprietary" (format nil "~s" payload)))
+                    (progn
+                      (org-agent:harness-log "DETERMINISTIC [Policy]: Sovereignty violation suspected. Blocking action.")
+                      nil)
+                    action))))
+#+end_src