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

org/core-perceive.org

@@ -35,54 +35,6 @@ The depth limit prevents runaway recursive loops. A signal that generates anothe
    Sets ~:status :perceived~ on completion. Returns the signal.
 2. (perceive-gate signal): thin alias for ~loop-gate-perceive~.
 
-* Test Suite
-Verifies that the perceive gate correctly ingests AST nodes into memory and that the depth limiter prevents runaway recursive signals.
-#+begin_src lisp
-(eval-when (:compile-toplevel :load-toplevel :execute)
-  (ql:quickload :fiveam :silent t))
-
-(defpackage :passepartout-pipeline-perceive-tests
-  (:use :cl :fiveam :passepartout)
-  (:export #:pipeline-perceive-suite))
-
-(in-package :passepartout-pipeline-perceive-tests)
-
-(def-suite pipeline-perceive-suite :description "Test suite for Perceive pipeline")
-(in-suite pipeline-perceive-suite)
-
-(test test-loop-gate-perceive
-  "Contract 1: :buffer-update ingests AST and sets :perceived status."
-  (clrhash passepartout::*memory-store*)
-  (let* ((signal (list :type :EVENT :payload (list :sensor :buffer-update :ast (list :type :HEADLINE :properties (list :ID "test-node" :TITLE "Test") :contents nil))))
-         (result (loop-gate-perceive signal)))
-    (is (eq :perceived (getf result :status)))
-    (is (not (null (gethash "test-node" passepartout::*memory-store*))))))
-
-(test test-depth-limiting
-  "Edge: depth 11 signals are rejected by the pipeline."
-  (let ((runaway-signal (list :type :EVENT :depth 11 :payload (list :sensor :heartbeat))))
-    (is (null (process-signal runaway-signal)))))
-
-(test test-loop-gate-perceive-unknown-sensor
-  "Contract 1: unknown sensors pass through and reach :perceived."
-  (let* ((signal (list :type :EVENT :depth 0 :payload (list :sensor :custom-metric)))
-         (result (loop-gate-perceive signal)))
-    (is (eq :perceived (getf result :status)))))
-
-(test test-loop-gate-perceive-no-ast
-  "Contract 1: :buffer-update without AST doesn't crash, reaches :perceived."
-  (clrhash passepartout::*memory-store*)
-  (let* ((signal (list :type :EVENT :depth 0 :payload (list :sensor :buffer-update)))
-         (result (loop-gate-perceive signal)))
-    (is (eq :perceived (getf result :status)))))
-
-(test test-depth-limiting-normal
-  "Contract 1: signals at normal depth pass through without rejection."
-  (let ((normal-signal (list :type :EVENT :depth 5 :payload (list :sensor :heartbeat))))
-    (is (not (eq :rejected (getf normal-signal :status)))
-        "Signal at normal depth should not be rejected")))
-#+end_src
-
 * Implementation
 
 ** Package Context
@@ -288,3 +240,50 @@ uses the old name can call this alias. New code should call
   (loop-gate-perceive signal))
 #+end_src
 
+* Test Suite
+Verifies that the perceive gate correctly ingests AST nodes into memory and that the depth limiter prevents runaway recursive signals.
+#+begin_src lisp
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (ql:quickload :fiveam :silent t))
+
+(defpackage :passepartout-pipeline-perceive-tests
+  (:use :cl :fiveam :passepartout)
+  (:export #:pipeline-perceive-suite))
+
+(in-package :passepartout-pipeline-perceive-tests)
+
+(def-suite pipeline-perceive-suite :description "Test suite for Perceive pipeline")
+(in-suite pipeline-perceive-suite)
+
+(test test-loop-gate-perceive
+  "Contract 1: :buffer-update ingests AST and sets :perceived status."
+  (clrhash passepartout::*memory-store*)
+  (let* ((signal (list :type :EVENT :payload (list :sensor :buffer-update :ast (list :type :HEADLINE :properties (list :ID "test-node" :TITLE "Test") :contents nil))))
+         (result (loop-gate-perceive signal)))
+    (is (eq :perceived (getf result :status)))
+    (is (not (null (gethash "test-node" passepartout::*memory-store*))))))
+
+(test test-depth-limiting
+  "Edge: depth 11 signals are rejected by the pipeline."
+  (let ((runaway-signal (list :type :EVENT :depth 11 :payload (list :sensor :heartbeat))))
+    (is (null (process-signal runaway-signal)))))
+
+(test test-loop-gate-perceive-unknown-sensor
+  "Contract 1: unknown sensors pass through and reach :perceived."
+  (let* ((signal (list :type :EVENT :depth 0 :payload (list :sensor :custom-metric)))
+         (result (loop-gate-perceive signal)))
+    (is (eq :perceived (getf result :status)))))
+
+(test test-loop-gate-perceive-no-ast
+  "Contract 1: :buffer-update without AST doesn't crash, reaches :perceived."
+  (clrhash passepartout::*memory-store*)
+  (let* ((signal (list :type :EVENT :depth 0 :payload (list :sensor :buffer-update)))
+         (result (loop-gate-perceive signal)))
+    (is (eq :perceived (getf result :status)))))
+
+(test test-depth-limiting-normal
+  "Contract 1: signals at normal depth pass through without rejection."
+  (let ((normal-signal (list :type :EVENT :depth 5 :payload (list :sensor :heartbeat))))
+    (is (not (eq :rejected (getf normal-signal :status)))
+        "Signal at normal depth should not be rejected")))
+#+end_src