tests: all 16 tests now sourced from org (doctor→diagnostics rename, orphaned tests adopted)

lisp/core-defpackage.lisp

@@ -15,12 +15,13 @@
    #:stop-daemon
    #:log-message
    #:main
-   #:doctor-run-all
-   #:doctor-main
-   #:doctor-check-dependencies
-   #:doctor-check-env
-   #:register-provider
-   #:system-ready-p
+    #:diagnostics-run-all
+    #:diagnostics-main
+    #:diagnostics-dependencies-check
+    #:diagnostics-env-check
+    #:register-provider
+    #:provider-openai-request
+    #:system-ready-p
    #:run-setup-wizard
    #:skill-gateway-register
    #:skill-gateway-link
@@ -242,7 +243,7 @@
   (format t "┌─────────────────────────────────────────────┐~%")
   (format t "│  ERROR: ~A~%" (type-of condition))
   (format t "│~%")
-  (format t "│  Run: passepartout doctor~%")
+   (format t "│  Run: passepartout diagnostics~%")
   (format t "│  For system diagnostics~%")
   (format t "└─────────────────────────────────────────────┘~%")
   (format t "~%")

lisp/core-loop.lisp

@@ -88,8 +88,8 @@
   (format t "==================================================~%")
   (handler-case
       (progn
-        (when (fboundp 'doctor-run-all)
-          (let ((result (doctor-run-all :auto-install nil)))
+         (when (fboundp 'diagnostics-run-all)
+           (let ((result (diagnostics-run-all :auto-install nil)))
             (setf *health-check-ran* t)
             (if result
                 (progn
@@ -98,10 +98,10 @@
                 (progn
                   (setf *system-health* :degraded)
                   (format t "DAEMON: Health check found issues.~%")
-                  (format t "         Run 'passepartout doctor --fix' to repair.~%")))))
+                   (format t "         Run 'passepartout diagnostics' to repair.~%")))))
         (setf *health-check-ran* t))
     (error (c)
-      (format t "DOCTOR ERROR: ~a~%" c)
+       (format t "DIAGNOSTICS ERROR: ~a~%" c)
       (setf *system-health* :unhealthy)
       (setf *health-check-ran* t)))
   (format t "==================================================~%~%"))
@@ -117,7 +117,7 @@
   (actuator-initialize)
   (skill-initialize-all)
   
-  ;; Run proactive doctor before starting services
+  ;; Run proactive diagnostics before starting services
   (diagnostics-startup-run)
   
   (heartbeat-start)

lisp/gateway-tui-main.lisp

@@ -162,4 +162,4 @@
         (redraw sw cw ch iw)
         (refresh scr)
         (sleep 0.03))
-      (disconnect-daemon))))
+       (disconnect-daemon))))

lisp/system-diagnostics.lisp

@@ -1,3 +1,5 @@
+(in-package :passepartout)
+
 (defvar *diagnostics-binaries* '("sbcl" "emacs" "git" "socat" "nc")
   "List of external binaries required for full system operation.")