fix: protocol validator allows REQUEST without :target if :source is present

- Relax validate-communication-protocol-schema to accept :REQUEST messages without
  :target when :source is present in :meta (reason-gate infers target from source).
- This preserves 'equality of clients' — gateways don't duplicate routing logic.
- Add communication-validator to ASD components.
- Fixes TCP CLI gateway integration: clients can now connect and receive responses.
- Verified with test client: 13/13 skills load, Perceive gate processes messages.

library/communication-validator.lisp

@@ -11,10 +11,15 @@
     
     (case type
       (:REQUEST 
-       (unless (proto-get msg :target)
-         (error "Communication Protocol Schema Error: REQUEST missing mandatory :target"))
-       (unless (proto-get msg :payload)
-         (error "Communication Protocol Schema Error: REQUEST missing mandatory :payload")))
+       ;; Allow missing :target if :source is present in :meta, since reason-gate
+       ;; will infer :target from :source downstream. This preserves "equality of
+       ;; clients" — gateways need not duplicate routing logic.
+       (let ((target (proto-get msg :target))
+             (source (proto-get (proto-get msg :meta) :source)))
+         (unless (or target source)
+           (error "Communication Protocol Schema Error: REQUEST missing mandatory :target and no :source in :meta to infer it"))
+         (unless (proto-get msg :payload)
+           (error "Communication Protocol Schema Error: REQUEST missing mandatory :payload"))))
       
       (:EVENT
        (let ((payload (proto-get msg :payload)))

library/gen/org-skill-protocol-validator.lisp

@@ -11,10 +11,15 @@
     
     (case type
       (:REQUEST 
-       (unless (proto-get msg :target)
-         (error "Communication Protocol Schema Error: REQUEST missing mandatory :target"))
-       (unless (proto-get msg :payload)
-         (error "Communication Protocol Schema Error: REQUEST missing mandatory :payload")))
+       ;; Allow missing :target if :source is present in :meta, since reason-gate
+       ;; will infer :target from :source downstream. This preserves "equality of
+       ;; clients" — gateways need not duplicate routing logic.
+       (let ((target (proto-get msg :target))
+             (source (proto-get (proto-get msg :meta) :source)))
+         (unless (or target source)
+           (error "Communication Protocol Schema Error: REQUEST missing mandatory :target and no :source in :meta to infer it"))
+         (unless (proto-get msg :payload)
+           (error "Communication Protocol Schema Error: REQUEST missing mandatory :payload"))))
       
       (:EVENT
        (let ((payload (proto-get msg :payload)))