fix(kernel): Revert invalid SETF on proto-get to standard GETF

2026-04-19 17:04:57 -04:00
parent 8bcd07bd45
commit d4fb6630d3
1 changed files with 2 additions and 2 deletions
--- a/src/act.lisp
+++ b/src/act.lisp
@@ -86,11 +86,11 @@
                 (not (member original-type '(:LOG :EVENT :log :event))))
            (progn
              (harness-log "ACT BLOCKED: Action failed last-mile deterministic check.")
-              (setf (proto-get signal :approved-action) nil)
+              (setf (getf signal :APPROVED-ACTION) nil)
              (setf approved nil)
              (setf feedback verified))
            (progn
-              (setf (proto-get signal :approved-action) verified)
+              (setf (getf signal :APPROVED-ACTION) verified)
              (setf approved verified)))))

    ;; 2. Actuation Logic