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

fix(kernel): Strip literal quotes from actuator environment variables
Some checks failed
Deploy-Agent-V15-Stdin / JOB-V15-STDIN (push) Failing after 3s
Details

Browse Source
This commit is contained in:
Amr Gharbeia
2026-04-19 16:36:44 -04:00
parent 92fd3cda14
commit fc2ab65d45
1 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/act.lisp
View File

@@ -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)