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

fix(skills): final cleanup of getenv to uiop:getenv

Browse Source
This commit is contained in:
Amr Gharbeia
2026-04-28 18:00:06 -04:00
parent d42b5fc50c
commit 75cc9e3629
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harness/skills.org
View File

@@ -357,7 +357,7 @@ Only loads blocks that specify a .lisp tangle target, ignoring tests and example
(return-from initialize-all-skills nil)) (return-from initialize-all-skills nil))
(let ((sorted-files (topological-sort-skills skills-dir))) (let ((sorted-files (topological-sort-skills skills-dir)))
(let* ((mandatory-env (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 '( #\,)))
@@ -589,7 +589,7 @@ EXAMPLES:
* Test Suite * Test Suite
#+begin_src lisp :tangle (expand-file-name "boot-sequence-tests.lisp" (concat (concat (or (getenv "INSTALL_DIR") ".") "/harness") "/tests")) #+begin_src lisp :tangle (expand-file-name "boot-sequence-tests.lisp" (concat (concat (or (uiop:getenv "INSTALL_DIR") ".") "/harness") "/tests"))
(defpackage :opencortex-boot-tests (defpackage :opencortex-boot-tests
(:use :cl :fiveam :opencortex) (:use :cl :fiveam :opencortex)
(:export #:boot-suite)) (:export #:boot-suite))