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")) (let ((def (uiop:getenv "DEFAULT_ACTUATOR"))
(silent (uiop:getenv "SILENT_ACTUATORS"))) (silent (uiop:getenv "SILENT_ACTUATORS")))
(when def (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 (when silent
(setf *silent-actuators* (setf *silent-actuators*
(mapcar (lambda (s) (intern (string-upcase (string-trim '(#\Space) s)) "KEYWORD")) (mapcar (lambda (s)
(str:split "," silent))))) (let ((clean-s (string-trim '(#\Space #\" #\') s)))
(intern (string-upcase clean-s) "KEYWORD")))
(uiop:split-string silent :separator '(#\,))))))
;; Register core harness actuators ;; Register core harness actuators
(register-actuator :system #'execute-system-action) (register-actuator :system #'execute-system-action)