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

fix(cli): use dynamic funcall for skill functions in setup and doctor

Browse Source
This commit is contained in:
Amr Gharbeia
2026-04-28 19:58:40 -04:00
parent 5068e4a2c5
commit 75957dfc69
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
opencortex.sh
View File

@@ -104,7 +104,7 @@ setup_system() {
--eval "(push (truename \"$OC_DATA_DIR/\") asdf:*central-registry*)" \ --eval "(push (truename \"$OC_DATA_DIR/\") asdf:*central-registry*)" \
--eval '(ql:quickload :opencortex)' \ --eval '(ql:quickload :opencortex)' \
--eval '(opencortex:initialize-all-skills)' \ --eval '(opencortex:initialize-all-skills)' \
--eval '(opencortex:run-setup-wizard)' --eval '(funcall (find-symbol "RUN-SETUP-WIZARD" :opencortex))'
} }
# --- 3. COMMAND ROUTER --- # --- 3. COMMAND ROUTER ---
@@ -116,7 +116,7 @@ case "$COMMAND" in
link) link)
PLATFORM=$1 PLATFORM=$1
TOKEN=$2 TOKEN=$2
exec sbcl --non-interactive --eval '(load (merge-pathnames "quicklisp/setup.lisp" (user-homedir-pathname)))' --eval "(push (truename \"$OC_DATA_DIR/\") asdf:*central-registry*)" --eval '(ql:quickload :opencortex)' --eval "(opencortex:gateway-manager-main \"$PLATFORM\" \"$TOKEN\")" exec sbcl --non-interactive --eval '(load (merge-pathnames "quicklisp/setup.lisp" (user-homedir-pathname)))' --eval "(push (truename \"$OC_DATA_DIR/\") asdf:*central-registry*)" --eval '(ql:quickload :opencortex)' --eval '(opencortex:initialize-all-skills)' --eval "(funcall (find-symbol \"GATEWAY-MANAGER-MAIN\" :opencortex) \"$PLATFORM\" \"$TOKEN\")"
;; ;;
doctor) doctor)
@@ -125,7 +125,7 @@ case "$COMMAND" in
--eval "(push (truename \"$OC_DATA_DIR/\") asdf:*central-registry*)" \ --eval "(push (truename \"$OC_DATA_DIR/\") asdf:*central-registry*)" \
--eval '(ql:quickload :opencortex)' \ --eval '(ql:quickload :opencortex)' \
--eval '(opencortex:initialize-all-skills)' \ --eval '(opencortex:initialize-all-skills)' \
--eval '(opencortex:doctor-main)' --eval '(funcall (find-symbol "DOCTOR-MAIN" :opencortex))'
;; ;;
setup) setup)