tests: fix dead test suite (export list, stale duplicates, 14/14 pass)

lisp/core-defpackage.lisp

@@ -56,15 +56,20 @@
     #:context-get-skill-telemetry
     #:telemetry-track
     #:context-assemble-global-awareness
+    #:context-awareness-assemble
     #:context-query
    #:process-signal
    #:loop-process
-   #:perceive-gate
-   #:probabilistic-gate
-   #:consensus-gate
-   #:act-gate
-   #:reason-gate
-   #:dispatch-gate
+    #:perceive-gate
+    #:loop-gate-perceive
+    #:probabilistic-gate
+    #:consensus-gate
+    #:act-gate
+    #:loop-gate-act
+    #:reason-gate
+    #:loop-gate-reason
+    #:cognitive-verify
+    #:dispatch-gate
     #:register-pre-reason-handler
     #:inject-stimulus
     #:stimulus-inject
@@ -105,29 +110,29 @@
    #:literate-check-block-balance
    #:check-tangle-sync
    #:*tangle-targets*
-   #:utils-org-read-file
-   #:utils-org-write-file
-   #:utils-org-add-headline
-   #:utils-org-set-property
-   #:utils-org-set-todo
-   #:utils-org-find-headline-by-id
-   #:utils-org-find-headline-by-title
-   #:utils-org-generate-id
-   #:utils-org-id-format
-   #:utils-org-ast-to-org
-   #:utils-org-modify
-   #:utils-lisp-validate
-   #:utils-lisp-check-structural
-   #:utils-lisp-check-syntactic
-   #:utils-lisp-check-semantic
-   #:utils-lisp-eval
-   #:utils-lisp-format
-   #:utils-lisp-list-definitions
-   #:utils-lisp-structural-extract
-   #:utils-lisp-structural-wrap
-   #:utils-lisp-structural-inject
-   #:utils-lisp-structural-slurp
-   #:utils-lisp-register
+    #:org-read-file
+    #:org-write-file
+    #:org-headline-add
+    #:org-property-set
+    #:org-todo-set
+    #:org-find-headline-by-id
+    #:org-find-headline-by-title
+    #:org-id-generate
+    #:org-id-format
+    #:org-ast-to-org
+    #:org-modify
+    #:lisp-validate
+    #:lisp-structural-check
+    #:lisp-syntactic-check
+    #:lisp-semantic-check
+    #:lisp-eval
+    #:lisp-format
+    #:lisp-list-definitions
+    #:lisp-extract
+    #:lisp-structural-wrap
+    #:lisp-inject
+    #:lisp-slurp
+    #:lisp-register
    #:get-oc-config-dir
    #:prompt-for
    #:save-secret
@@ -151,9 +156,8 @@
    #:*provider-cascade*
    #:vault-get-secret
    #:vault-set-secret
-   #:memory-objects-by-attribute
-   #:deterministic-verify
-   #:find-headline-missing-id))
+    #:memory-objects-by-attribute
+    #:find-headline-missing-id))
 
 (in-package :passepartout)
 

lisp/core-loop.lisp

@@ -117,12 +117,6 @@
   (actuator-initialize)
   (skill-initialize-all)
   
-  ;; Check for configured LLM providers
-  (when (zerop (hash-table-count *probabilistic-backends*))
-    (log-message "WELCOME: No LLM providers configured. Run 'passepartout tui' and press F2 to set up.")
-    (log-message "WELCOME: Supported providers: openrouter, openai, anthropic, groq, gemini, deepseek, nvidia")
-    (log-message "WELCOME: For free tier, start with OPENROUTER_API_KEY at https://openrouter.ai"))
-  
   ;; Run proactive doctor before starting services
   (diagnostics-startup-run)
   
@@ -145,11 +139,6 @@
         (return))
       (sleep sleep-interval))))
 
-(defun providers-configured-p ()
-  "Returns T if at least one probabilistic backend is registered."
-  (and (boundp '*probabilistic-backends*)
-       (> (hash-table-count *probabilistic-backends*) 0)))
-
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (ql:quickload :fiveam :silent t))
 
@@ -164,7 +153,7 @@
 
 (test loop-error-injection
   "Verify that a crash in think/decide triggers a :loop-error stimulus."
-  (clrhash passepartout::*skills-registry*)
+  (clrhash passepartout::*skill-registry*)
   (passepartout:defskill :evil-skill
     :priority 100
     :trigger (lambda (ctx) (eq (getf (getf ctx :payload) :sensor) :user-input))

lisp/programming-standards.lisp

@@ -9,14 +9,14 @@
 
 (defun standards-lisp-verify (code)
   "Enforces Lisp structural and semantic standards using utils-lisp."
-  (let ((result (utils-lisp-validate code :strict t)))
+  (let ((result (lisp-validate code :strict t)))
     (if (eq (getf result :status) :success)
         t
         (error (getf result :reason)))))
 
 (defun standards-lisp-format (code)
   "Ensures Lisp code adheres to formatting standards."
-  (utils-lisp-format code))
+  (lisp-format code))
 
 (defskill :passepartout-programming-standards
   :priority 100