docs: add Contract sections + tag tests to contract items (Tier 2 — 10 files)

lisp/core-loop-act.lisp

@@ -173,6 +173,7 @@ For approval-required actions, creates a Flight Plan instead of executing."
 (in-suite pipeline-act-suite)
 
 (test test-loop-gate-act-basic
+  "Contract 1: approved action reaches :acted status via loop-gate-act."
   (clrhash passepartout::*skill-registry*)
   (let* ((signal (list :type :EVENT :status nil :depth 0 :approved-action '(:target :cli :payload (:text "Hello"))))
           (result (loop-gate-act signal)))
@@ -180,14 +181,14 @@ For approval-required actions, creates a Flight Plan instead of executing."
     (is (null result))))
 
 (test test-loop-gate-act-no-approved-action
-  "When no approved-action is set, the signal should still reach :acted status."
+  "Contract 1: signal with no approved-action still reaches :acted status."
   (clrhash passepartout::*skill-registry*)
   (let* ((signal (list :type :EVENT :status nil :depth 0)))
     (loop-gate-act signal)
     (is (eq :acted (getf signal :status)))))
 
 (test test-loop-gate-act-last-mile-reject
-  "When the last-mile cognitive-verify rejects with :LOG, status should not reach :acted."
+  "Contract 1: last-mile cognitive-verify rejection blocks approved-action."
   (clrhash passepartout::*skill-registry*)
   (passepartout::defskill :mock-blocker
     :priority 50
@@ -202,7 +203,7 @@ For approval-required actions, creates a Flight Plan instead of executing."
     (is (null (getf signal :approved-action)))))
 
 (test test-loop-gate-act-preserves-meta
-  "Signal metadata should not be mutated by the act gate."
+  "Contract 1: signal metadata is not mutated by loop-gate-act."
   (clrhash passepartout::*skill-registry*)
   (let* ((meta '(:source :tui :session "s1"))
          (signal (list :type :EVENT :status nil :depth 0 :meta meta