From d4fb6630d36421c3a94898e859e3860e088d41cd Mon Sep 17 00:00:00 2001
From: Amr Gharbeia <amr@gharbeia.net>
Date: Sun, 19 Apr 2026 17:04:57 -0400
Subject: [PATCH] fix(kernel): Revert invalid SETF on proto-get to standard
 GETF

---
 src/act.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/act.lisp b/src/act.lisp
index c0d3656..4f0c4cf 100644
--- 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