fix(skills): Correct character literal syntax for comma
Some checks failed
Deploy-Agent-V15-Stdin / JOB-V15-STDIN (push) Failing after 3s
Some checks failed
Deploy-Agent-V15-Stdin / JOB-V15-STDIN (push) Failing after 3s
This commit is contained in:
@@ -224,7 +224,7 @@ A static, hardcoded architecture is inherently fragile. The ~opencortex~ Skill E
|
|||||||
(let* ((mandatory-env (uiop:getenv "MANDATORY_SKILLS"))
|
(let* ((mandatory-env (uiop:getenv "MANDATORY_SKILLS"))
|
||||||
(mandatory-skills (if mandatory-env
|
(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 '(#,)))
|
(uiop:split-string mandatory-env :separator '( #\,)))
|
||||||
'("org-skill-policy" "org-skill-bouncer"))))
|
'("org-skill-policy" "org-skill-bouncer"))))
|
||||||
(dolist (req mandatory-skills)
|
(dolist (req mandatory-skills)
|
||||||
(unless (member req sorted-files :key #'pathname-name :test #'string-equal)
|
(unless (member req sorted-files :key #'pathname-name :test #'string-equal)
|
||||||
|
|||||||
@@ -199,7 +199,7 @@
|
|||||||
(let* ((mandatory-env (uiop:getenv "MANDATORY_SKILLS"))
|
(let* ((mandatory-env (uiop:getenv "MANDATORY_SKILLS"))
|
||||||
(mandatory-skills (if mandatory-env
|
(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 '(#,)))
|
(uiop:split-string mandatory-env :separator '( #\,)))
|
||||||
'("org-skill-policy" "org-skill-bouncer"))))
|
'("org-skill-policy" "org-skill-bouncer"))))
|
||||||
(dolist (req mandatory-skills)
|
(dolist (req mandatory-skills)
|
||||||
(unless (member req sorted-files :key #'pathname-name :test #'string-equal)
|
(unless (member req sorted-files :key #'pathname-name :test #'string-equal)
|
||||||
|
|||||||
Reference in New Issue
Block a user