From 813e3c830bbafffadf6b01371ea119b815b13ea3 Mon Sep 17 00:00:00 2001 From: Amr Gharbeia Date: Sun, 19 Apr 2026 16:23:15 -0400 Subject: [PATCH] fix(kernel): Strip literal quotes from mandatory skill list --- literate/skills.org | 2 +- src/skills.lisp | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/literate/skills.org b/literate/skills.org index 61733f7..050aae3 100644 --- a/literate/skills.org +++ b/literate/skills.org @@ -223,7 +223,7 @@ A static, hardcoded architecture is inherently fragile. The ~opencortex~ Skill E (let ((sorted-files (topological-sort-skills skills-dir))) (let* ((mandatory-env (uiop:getenv "MANDATORY_SKILLS")) (mandatory-skills (if mandatory-env - (mapcar (lambda (s) (string-trim '(#\Space) s)) + (mapcar (lambda (s) (string-trim '(#\Space #\" #\') s)) (uiop:split-string mandatory-env :separator '( #\,))) '("org-skill-policy" "org-skill-bouncer")))) (dolist (req mandatory-skills) diff --git a/src/skills.lisp b/src/skills.lisp index 812d504..0bab583 100644 --- a/src/skills.lisp +++ b/src/skills.lisp @@ -198,7 +198,7 @@ (let ((sorted-files (topological-sort-skills skills-dir))) (let* ((mandatory-env (uiop:getenv "MANDATORY_SKILLS")) (mandatory-skills (if mandatory-env - (mapcar (lambda (s) (string-trim '(#\Space) s)) + (mapcar (lambda (s) (string-trim '(#\Space #\" #\') s)) (uiop:split-string mandatory-env :separator '( #\,))) '("org-skill-policy" "org-skill-bouncer")))) (dolist (req mandatory-skills)