rename: remaining Bouncer mentions → Dispatcher

- BOUNCER-PRIVACY-TAGS → *DISPATCHER-PRIVACY-TAGS*
- BOUNCER-SHELL-TIMEOUT → *DISPATCHER-SHELL-TIMEOUT*
- BOUNCER-SHELL-MAX-OUTPUT → *DISPATCHER-SHELL-MAX-OUTPUT*
- bouncer-privacy-tags docstrings → Dispatcher privacy tags
- 'Bouncer' in log messages, docstrings, test descriptions
- 'Bouncer Security Dispatcher' → 'Security Dispatcher'

lisp/security-dispatcher.lisp

@@ -2,7 +2,7 @@
 
 (defvar *dispatcher-network-whitelist*
   '("api.telegram.org" "matrix.org" "googleapis.com" "openai.com" "anthropic.com")
-  "Domains the Bouncer considers safe for outbound connections.")
+  "Domains the Dispatcher considers safe for outbound connections.")
 
 (defvar *dispatcher-privacy-tags*
   (let ((env (uiop:getenv "PRIVACY_FILTER_TAGS")))
@@ -211,7 +211,7 @@ privacy tags, privacy text, shell safety, network exfil, high-impact approval."
 
        ;; Vector 0: REPL verification lint (warn, don't block)
       (repl-lint
-       (log-message "BOUNCER: ~a" (proto-get repl-lint :text))
+       (log-message "DISPATCHER: ~a" (proto-get repl-lint :text))
        action)
 
        ;; Vector 1: Lisp syntax validation (block bad lisp writes)
@@ -293,7 +293,7 @@ privacy tags, privacy text, shell safety, network exfil, high-impact approval."
              (tags (getf attrs :TAGS))
              (action-str (getf attrs :ACTION)))
         (when (and (member "FLIGHT_PLAN" tags :test #'string-equal) action-str)
-          (log-message "BOUNCER: Found approved flight plan '~a'. Re-injecting..." (memory-object-id node))
+          (log-message "DISPATCHER: Found approved flight plan '~a'. Re-injecting..." (memory-object-id node))
           (let ((action (ignore-errors (read-from-string action-str))))
             (when action
               (setf (getf action :approved) t)
@@ -309,7 +309,7 @@ privacy tags, privacy text, shell safety, network exfil, high-impact approval."
 (defun dispatcher-flight-plan-create (blocked-action)
   "Creates a Flight Plan node for manual approval in Emacs."
   (let ((id (remove #\- (princ-to-string (uuid:make-v4-uuid)))))
-    (log-message "BOUNCER: Creating flight plan node '~a'..." id)
+    (log-message "DISPATCHER: Creating flight plan node '~a'..." id)
     (list :type :REQUEST :target :emacs
           :payload (list :action :insert-node :id id
                          :attributes (list :TITLE "Flight Plan: High-Risk Action"
@@ -386,7 +386,7 @@ Recognized formats:
     nil))
 
 (defun dispatcher-gate (action context)
-  "Main deterministic gate for the Bouncer skill."
+  "Main deterministic gate for the Security Dispatcher skill."
   (let* ((payload (getf context :payload))
          (sensor (getf payload :sensor)))
     (case sensor
@@ -412,7 +412,7 @@ Recognized formats:
 
 (in-package :passepartout-security-dispatcher-tests)
 
-(def-suite dispatcher-suite :description "Verification of the Bouncer Security Dispatcher")
+(def-suite dispatcher-suite :description "Verification of the Security Dispatcher")
 (in-suite dispatcher-suite)
 
 (test test-wildcard-match