docs: add literate prose to naming-drift aliases and HITL gateway changes

Adds prose sections before every code block to satisfy the
prose-before-code discipline. Each backward-compatibility alias
(process-signal, perceive-gate, reason-gate, act-gate, inject-stimulus)
now has its own subsection explaining why it exists and what new code
should use instead.

Also:
- Fixes double #+end_src in core-loop-perceive.org
- Renames inject-stimulus → stimulus-inject in heartbeat-start and
  client-handle-connection (both already had aliases)
- Adds HITL interception prose to gateway-manager.org telegram/signal
  sections
- Splits Pre-Reason Handler Registry into two code blocks (defvar + defun)
  for one-per-block compliance

lisp/core-communication.lisp

@@ -71,7 +71,7 @@
                                                      nil))))
                    (format stream "~a" (frame-message health-msg))
                    (finish-output stream)))
-                (t (inject-stimulus msg :stream stream))))))
+                (t (stimulus-inject msg :stream stream))))))
       (error (c) (log-message "CLIENT ERROR: ~a" c)))
     (ignore-errors (usocket:socket-close socket))))
 

lisp/core-loop-act.lisp

@@ -96,10 +96,6 @@
           (t (format nil "TOOL [~a] RESULT: ~s" tool-name result))))
       (format nil "TOOL [~a] RESULT: ~a" tool-name result)))
 
-;; Alias: act-gate → loop-gate-act
-(defun act-gate (signal)
-  (loop-gate-act signal))
-
 (defun loop-gate-act (signal)
   "Final stage of the metabolic pipeline: Actuation.
 For approval-required actions, creates a Flight Plan instead of executing."
@@ -155,6 +151,9 @@ For approval-required actions, creates a Flight Plan instead of executing."
     (setf (getf signal :status) :acted)
     feedback))
 
+(defun act-gate (signal)
+  (loop-gate-act signal))
+
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (ql:quickload :fiveam :silent t))
 

lisp/core-loop-perceive.lisp

@@ -16,9 +16,7 @@
 FN receives (signal) and returns T if consumed, nil to continue."
   (setf (gethash sensor *pre-reason-handlers*) fn))
 
-;; Alias for backward compatibility
 (defun inject-stimulus (raw-message &key stream (depth 0))
-  "Alias for stimulus-inject."
   (stimulus-inject raw-message :stream stream :depth depth))
 
 (defun stimulus-inject (raw-message &key stream (depth 0))
@@ -53,10 +51,6 @@ FN receives (signal) and returns T if consumed, nil to continue."
           (skip-event ()
             (log-message "SYSTEM RECOVERY: Stimulus dropped."))))))
 
-;; Alias: perceive-gate → loop-gate-perceive
-(defun perceive-gate (signal)
-  (loop-gate-perceive signal))
-
 (defun loop-gate-perceive (signal)
   "Stage 1 of the metabolic pipeline: Normalize sensory input."
   (let* ((payload (getf signal :payload))
@@ -110,6 +104,9 @@ FN receives (signal) and returns T if consumed, nil to continue."
     (setf (getf signal :foveal-focus) *loop-focus-id*)
     signal))
 
+(defun perceive-gate (signal)
+  (loop-gate-perceive signal))
+
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (ql:quickload :fiveam :silent t))
 

lisp/core-loop-reason.lisp

@@ -121,10 +121,6 @@ modified action (for approval-required or pass)."
                              :action approval-action))
         current-action)))
 
-;; Alias: reason-gate → loop-gate-reason
-(defun reason-gate (signal)
-  (loop-gate-reason signal))
-
 (defun loop-gate-reason (signal)
   (let* ((type (proto-get signal :type))
          (payload (proto-get signal :payload))
@@ -162,6 +158,9 @@ modified action (for approval-required or pass)."
                 (setf (getf signal :status) :reasoned)
                 (return signal))))))))
 
+(defun reason-gate (signal)
+  (loop-gate-reason signal))
+
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (ql:quickload :fiveam :silent t))
 

lisp/core-loop.lisp

@@ -9,10 +9,6 @@
 (defvar *heartbeat-thread* nil
   "Handle to the heartbeat thread.")
 
-;; Alias: process-signal → loop-process (backward compatibility)
-(defun process-signal (signal)
-  (loop-process signal))
-
 (defun loop-process (signal)
   "The entry point to the Metabolic Pipeline: Perceive -> Reason -> Act."
   (let ((current-signal signal))
@@ -49,6 +45,9 @@
                         (list :type :EVENT :depth (1+ depth) :meta meta
                               :payload (list :sensor :loop-error :message (format nil "~a" c) :depth depth)))))))))))
 
+(defun process-signal (signal)
+  (loop-process signal))
+
 (defvar *memory-auto-save-interval* 300)
 
 (defvar *heartbeat-save-counter* 0)
@@ -69,8 +68,8 @@
                (when (>= *heartbeat-save-counter* (/ *memory-auto-save-interval* interval))
                  (setf *heartbeat-save-counter* 0)
                  (save-memory-to-disk))
-               (inject-stimulus
-                 (list :type :EVENT :payload (list :sensor :heartbeat :unix-time (get-universal-time))))))
+               (stimulus-inject
+                  (list :type :EVENT :payload (list :sensor :heartbeat :unix-time (get-universal-time))))))
            :name "passepartout-heartbeat"))))
 
 (defvar *shutdown-save-enabled* t)