v0.8.3: TUI stabilization — box calls, package fixes, sandbox, configure

Bug fixes:
- Fix box() calls: set color-pair before box, pass ACS default chtype integers
- Fix markdown functions: move to passepartout.channel-tui package where
  Croatoan is imported; use add-attributes/remove-attributes instead of
  :bold/:underline kwargs to add-string; call theme-color in gate-trace-lines
  to convert theme keys to Croatoan colors
- Fix sandbox: remove dex:get/dex:post from restricted symbols
  (blocked neuro-provider from loading)
- Export *log-lock* from passepartout (was unbound in jailed skill packages)
- Fix configure: always deploy to XDG, skip cp when source==dest
- Fix bash crash handler format string (~~ escaping)
- Revert test reorder in 28 files (caused package leakage in skill loader)

Design cleanup:
- Extract tui-run-screen from tui-main for clean separation
- Remove inject-stimulus alias
- Merge *backend-registry* into *probabilistic-backends*
- Fix read-framed-message whitespace DoS (4096-iteration max)
- Add *read-eval* nil to dispatcher-approvals-process read-from-string

lisp/core-pipeline.lisp

@@ -1,45 +1,3 @@
-(eval-when (:compile-toplevel :load-toplevel :execute)
-  (ql:quickload :fiveam :silent t))
-
-(defpackage :passepartout-immune-system-tests
-  (:use :cl :fiveam :passepartout)
-  (:export #:immune-suite))
-
-(in-package :passepartout-immune-system-tests)
-
-(def-suite immune-suite :description "Verification of the Immune System (Core Error Hooks)")
-(in-suite immune-suite)
-
-(test loop-error-injection
-  "Contract 1: a crash in think/decide triggers :loop-error stimulus."
-  (clrhash passepartout::*skill-registry*)
-  (passepartout:defskill :evil-skill
-    :priority 100
-    :trigger (lambda (ctx) (eq (getf (getf ctx :payload) :sensor) :user-input))
-    :probabilistic (lambda (ctx) (declare (ignore ctx)) (error "CRITICAL BRAIN FAILURE"))
-    :deterministic nil)
-  (passepartout:loop-process '(:type :EVENT :payload (:sensor :user-input)))
-  (let ((logs (if (fboundp 'passepartout::context-get-system-logs)
-                  (passepartout:context-get-system-logs 20)
-                  nil)))
-    (is (or (null logs)  ; no log service available — degraded but not broken
-            (not (null (find-if (lambda (line) (search "CRITICAL BRAIN FAILURE" line)) logs)))))))
-
-(test test-process-signal-normal-path
-  "Contract 1: a valid signal passes through the pipeline without crash."
-  (clrhash passepartout::*skill-registry*)
-  (handler-case
-      (let ((signal (list :type :EVENT :depth 0 :payload (list :sensor :heartbeat))))
-        (process-signal signal)
-        (pass))
-    (error (c)
-      (fail "Pipeline crashed on normal signal: ~a" c))))
-
-(test test-loop-process-returns-nil-on-deep
-  "Contract 1: depth > 10 returns nil from loop-process."
-  (let ((result (loop-process '(:type :EVENT :depth 11 :payload (:sensor :heartbeat)))))
-    (is (null result))))
-
 (in-package :passepartout)
 
 (define-condition passepartout-error (error)
@@ -230,3 +188,45 @@
         (when *shutdown-save-enabled* (save-memory-to-disk))
         (return))
       (sleep sleep-interval))))
+
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (ql:quickload :fiveam :silent t))
+
+(defpackage :passepartout-immune-system-tests
+  (:use :cl :fiveam :passepartout)
+  (:export #:immune-suite))
+
+(in-package :passepartout-immune-system-tests)
+
+(def-suite immune-suite :description "Verification of the Immune System (Core Error Hooks)")
+(in-suite immune-suite)
+
+(test loop-error-injection
+  "Contract 1: a crash in think/decide triggers :loop-error stimulus."
+  (clrhash passepartout::*skill-registry*)
+  (passepartout:defskill :evil-skill
+    :priority 100
+    :trigger (lambda (ctx) (eq (getf (getf ctx :payload) :sensor) :user-input))
+    :probabilistic (lambda (ctx) (declare (ignore ctx)) (error "CRITICAL BRAIN FAILURE"))
+    :deterministic nil)
+  (passepartout:loop-process '(:type :EVENT :payload (:sensor :user-input)))
+  (let ((logs (if (fboundp 'passepartout::context-get-system-logs)
+                  (passepartout:context-get-system-logs 20)
+                  nil)))
+    (is (or (null logs)  ; no log service available — degraded but not broken
+            (not (null (find-if (lambda (line) (search "CRITICAL BRAIN FAILURE" line)) logs)))))))
+
+(test test-process-signal-normal-path
+  "Contract 1: a valid signal passes through the pipeline without crash."
+  (clrhash passepartout::*skill-registry*)
+  (handler-case
+      (let ((signal (list :type :EVENT :depth 0 :payload (list :sensor :heartbeat))))
+        (process-signal signal)
+        (pass))
+    (error (c)
+      (fail "Pipeline crashed on normal signal: ~a" c))))
+
+(test test-loop-process-returns-nil-on-deep
+  "Contract 1: depth > 10 returns nil from loop-process."
+  (let ((result (loop-process '(:type :EVENT :depth 11 :payload (:sensor :heartbeat)))))
+    (is (null result))))