feat: REPL development tool + naming drift fixes + HITL gateways

REPL tool:
- ~/.opencode/bin/repl — connects to running daemon, evaluates Lisp forms,
  returns results. Usage: repl '(+ 1 2)' or via stdin.
- Server-side handler in programming-repl skill registers for :repl-eval
  sensor, bypasses LLM pipeline, writes result back through reply-stream.
- Core provides pre-reason-handler registry (register-pre-reason-handler)
  for skills to register custom sensors without modifying core code.

HITL gateway integration:
- hitl-handle-message: TUI, Telegram, and Signal gateways intercept
  approval/deny commands before they reach the LLM.
- hitl-create/hitl-approve/hitl-deny: in-memory HITL store with correlation
  tokens for gateway-agnostic approval.
- loop-gate-perceive detects HITL commands and blocks LLM processing.

Naming drift fixes (the complete batch):
- register-actuator vs actuator-register — fixed to register-actuator
- process-signal vs loop-process — alias added
- perceive-gate/reason-gate/act-gate vs loop-gate-* — aliases added
- initialize-actuators vs actuator-initialize — fixed to actuator-initialize
- initialize-all-skills vs skill-initialize-all — fixed to skill-initialize-all
- inject-stimulus alias added for backward compatibility
- All original gateway-manager inject-stimulus → stimulus-inject + HITL check

lisp/core-loop-act.lisp

@@ -96,6 +96,10 @@
           (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."
@@ -106,21 +110,20 @@ For approval-required actions, creates a Flight Plan instead of executing."
          (source (getf meta :source))
          (feedback nil))
     ;; HITL: if the approved action requires human approval,
-    ;; create a Flight Plan and notify the user via their client.
+    ;; create a Flight Plan (Emacs) and HITL entry (all gateways).
     (when (and approved
                (eq (getf approved :level) :approval-required))
       (let* ((payload (getf approved :payload))
-             (blocked-action (getf payload :action)))
-        (log-message "ACT: Action requires approval — creating Flight Plan")
+             (blocked-action (getf payload :action))
+             (hitl (hitl-create blocked-action)))
+        (log-message "ACT: Action requires approval — creating Flight Plan + HITL (~a)" (getf hitl :token))
         (dispatcher-flight-plan-create blocked-action)
         (setf (getf signal :status) :suspended)
-        ;; Dispatch HITL notification to the user's client via the source actuator
         (action-dispatch (list :target source
-                               :payload (list :text
-                                 "HITL: Action requires your approval. Check Flight Plan and set TODO to APPROVED."))
+                               :payload (list :text (getf hitl :message)))
                          signal)
-        (setf approved nil)  ;; Don't execute the original action
-        (setf feedback nil)))  ;; Don't loop back — wait for human
+        (setf approved nil)
+        (setf feedback nil)))
     (when approved
       (let* ((original-type (getf approved :type))
              (verified (cognitive-verify approved signal)))