fix: correct setf form in perceive gate HITL handler

(setf (getf signal :approved t)) → (setf (getf signal :approved) t)

Caught during system compilation. This is exactly the class of bug that
the REPL-first discipline would have caught instantly.

lisp/core-loop-perceive.lisp

@@ -69,7 +69,7 @@
               (:approval-required
                (when (getf payload :approved)
                  (log-message "GATE [Perceive]: Approved Flight Plan re-injected")
-                 (setf (getf signal :approved t))
+                 (setf (getf signal :approved) t)
                  (setf (getf signal :approved-action) (getf payload :action))))
               ;; Default sensor: pass through without requiring user-input processing
               (otherwise