amr/passepartout
1
0
Fork 0
Code Issues 15 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

fix(kernel): Aggressive Lisp cache purge and keyword normalization
Some checks failed
Deploy-Agent-V15-Stdin / JOB-V15-STDIN (push) Failing after 2s
Details

Browse Source
This commit is contained in:
Amr Gharbeia
2026-04-19 16:44:46 -04:00
parent 6bb22db181
commit 63e821ede3
2 changed files with 7 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/act.lisp
View File

@@ -5,8 +5,8 @@
(defun initialize-actuators ()
"Loads actuator routing defaults from environment variables and registers core harness actuators."
(let ((def (uiop:getenv "DEFAULT_ACTUATOR"))
(silent (uiop:getenv "SILENT_ACTUATORS")))
(let ((def (string-trim '(#\Space #\" #\') (or (uiop:getenv "DEFAULT_ACTUATOR") "CLI")))
(silent (or (uiop:getenv "SILENT_ACTUATORS") "CLI,SYSTEM-MESSAGE,EMACS")))
(when def
(let ((clean-def (string-trim '(#\Space #\" #\') def)))
(setf *default-actuator* (intern (string-upcase clean-def) "KEYWORD"))))
@@ -24,10 +24,10 @@
(defun dispatch-action (action context)
"Routes an approved action to its registered physical actuator."
(when (and action (listp action))
(let* ((raw-target (or (ignore-errors (getf action :target))
(ignore-errors (getf action :TARGET))
(let* ((raw-target (or (ignore-errors (getf action :TARGET))
(ignore-errors (getf action :target))
*default-actuator*))
(target (if (keywordp raw-target) raw-target (intern (string-upcase (string raw-target)) :keyword)))
(target (intern (string-upcase (string raw-target)) :keyword))
(actuator-fn (gethash target *actuator-registry*)))
(if actuator-fn
(funcall actuator-fn action context)