From 75957dfc698375a56fcab4e9d30adc4a162ea85e Mon Sep 17 00:00:00 2001 From: Amr Gharbeia Date: Tue, 28 Apr 2026 19:58:40 -0400 Subject: [PATCH] fix(cli): use dynamic funcall for skill functions in setup and doctor --- opencortex.sh | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/opencortex.sh b/opencortex.sh index 1558d48..35798d6 100755 --- a/opencortex.sh +++ b/opencortex.sh @@ -104,7 +104,7 @@ setup_system() { --eval "(push (truename \"$OC_DATA_DIR/\") asdf:*central-registry*)" \ --eval '(ql:quickload :opencortex)' \ --eval '(opencortex:initialize-all-skills)' \ - --eval '(opencortex:run-setup-wizard)' + --eval '(funcall (find-symbol "RUN-SETUP-WIZARD" :opencortex))' } # --- 3. COMMAND ROUTER --- @@ -116,7 +116,7 @@ case "$COMMAND" in link) PLATFORM=$1 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) @@ -125,7 +125,7 @@ case "$COMMAND" in --eval "(push (truename \"$OC_DATA_DIR/\") asdf:*central-registry*)" \ --eval '(ql:quickload :opencortex)' \ --eval '(opencortex:initialize-all-skills)' \ - --eval '(opencortex:doctor-main)' + --eval '(funcall (find-symbol "DOCTOR-MAIN" :opencortex))' ;; setup)