From fc2ab65d451298596a04d7ced92543724512a09c Mon Sep 17 00:00:00 2001 From: Amr Gharbeia Date: Sun, 19 Apr 2026 16:36:44 -0400 Subject: [PATCH] fix(kernel): Strip literal quotes from actuator environment variables --- src/act.lisp | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/src/act.lisp b/src/act.lisp index bf220af..d3de34b 100644 --- a/src/act.lisp +++ b/src/act.lisp @@ -8,11 +8,14 @@ (let ((def (uiop:getenv "DEFAULT_ACTUATOR")) (silent (uiop:getenv "SILENT_ACTUATORS"))) (when def - (setf *default-actuator* (intern (string-upcase def) "KEYWORD"))) + (let ((clean-def (string-trim '(#\Space #\" #\') def))) + (setf *default-actuator* (intern (string-upcase clean-def) "KEYWORD")))) (when silent (setf *silent-actuators* - (mapcar (lambda (s) (intern (string-upcase (string-trim '(#\Space) s)) "KEYWORD")) - (str:split "," silent))))) + (mapcar (lambda (s) + (let ((clean-s (string-trim '(#\Space #\" #\') s))) + (intern (string-upcase clean-s) "KEYWORD"))) + (uiop:split-string silent :separator '(#\,)))))) ;; Register core harness actuators (register-actuator :system #'execute-system-action)