fix(mvp): Final TUI system definition, syntax fixes, and robust bootstrapper

literate/manifest.org

@@ -75,3 +75,12 @@ This system contains the empirical tests required by the Engineering Standards.
              (uiop:symbol-call :fiveam :run! (uiop:find-symbol* :memory-suite :opencortex-memory-tests))
              (uiop:symbol-call :fiveam :run! (uiop:find-symbol* :immune-suite :opencortex-immune-system-tests))))
 #+end_src
+
+** TUI Client Definition
+This system defines the native Croatoan TUI client.
+
+#+begin_src lisp :tangle ../opencortex.asd
+(defsystem :opencortex/tui
+  :depends-on (:opencortex :croatoan :usocket :bordeaux-threads)
+  :components ((:file "src/tui-client")))
+#+end_src

literate/setup.org

@@ -115,7 +115,7 @@ setup_system() {
     sbcl --non-interactive \
          --eval "(load (merge-pathnames \"quicklisp/setup.lisp\" (user-homedir-pathname)))" \
          --eval "(push (truename \"$SCRIPT_DIR/\") asdf:*central-registry*)" \
-         --eval "(ql:quickload :opencortex)"
+         --eval "(ql:quickload '(:opencortex :croatoan))"
     
     if [ $? -ne 0 ]; then
         echo -e "${RED}✗ Compilation or Loading failed.${NC}"
@@ -171,7 +171,7 @@ if [[ "$1" == "--boot" ]]; then
          --eval "(setf *debugger-hook* (lambda (c h) (declare (ignore h)) (format *error-output* \"FATAL LISP ERROR: ~a~%\" c) (uiop:print-backtrace :stream *error-output*) (uiop:quit 1)))" \
          --eval "(push (truename \"$SCRIPT_DIR/\") asdf:*central-registry*)" \
          --eval "(format t \"--- Quickloading OpenCortex ---~%\")" \
-         --eval "(ql:quickload :opencortex)" \
+         --eval "(ql:quickload '(:opencortex :croatoan))" \
          --eval "(opencortex:main)"
 fi
 
@@ -194,7 +194,7 @@ if [[ "$1" == "tui" ]]; then
     exec sbcl --non-interactive \
          --load ~/quicklisp/setup.lisp \
          --eval "(push (truename \"$SCRIPT_DIR/\") asdf:*central-registry*)" \
-         --eval "(ql:quickload :opencortex/tui :silent t)" \
+         --eval "(ql:quickload '(:opencortex :croatoan)/tui :silent t)" \
          --eval "(opencortex.tui:main)"
 fi
 

literate/skills.org

@@ -333,7 +333,7 @@ The `initialize-all-skills` function is the unified orchestrator for the system
                                    '("org-skill-policy" "org-skill-bouncer"))))
         (dolist (req mandatory-skills)
           (unless (member req sorted-files :key #'pathname-name :test #'string-equal)
-            (error "BOOT FAILURE: Mandatory skill '~a' not found in skills directory: ~a" req (uiop:native-namestring skills-dir))))
+            (error "BOOT FAILURE: Mandatory skill '~a' not found in skills directory: ~a" req (uiop:native-namestring skills-dir)))
       
         (harness-log "==================================================")
         (harness-log " LOADER: Initializing ~a skills..." (length sorted-files))