#+TITLE: SKILL: Protocol Validator (org-skill-protocol-validator.org)
#+AUTHOR: Agent
#+FILETAGS: :system:protocol:validation:
#+PROPERTY: header-args:lisp :tangle org-skill-protocol-validator.lisp

* Overview
The *Protocol Validator* skill enforces strict schema compliance for all internal and external communication.

* Implementation

** Package Context
#+begin_src lisp
(in-package :opencortex)
#+end_src

** Validation Logic
#+begin_src lisp
(defun protocol-validate (msg)
  "Enforces structural schema compliance on protocol messages."
  (validate-communication-protocol-schema msg))
#+end_src

** Skill Registration
#+begin_src lisp
(defskill :skill-protocol-validator
  :priority 95
  :trigger (lambda (ctx) (declare (ignore ctx)) t)
  :deterministic (lambda (action ctx)
                   (declare (ignore ctx))
                   (handler-case
                       (progn (protocol-validate action) action)
                     (error (c)
                       (list :type :LOG :payload (list :level :error :text (format nil "Protocol Violation: ~a" c)))))))
#+end_src