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

lisp/core-loop.lisp

@@ -152,7 +152,7 @@
 (in-suite immune-suite)
 
 (test loop-error-injection
-  "Verify that a crash in think/decide triggers a :loop-error stimulus."
+  "Contract 1: a crash in think/decide triggers :loop-error stimulus."
   (clrhash passepartout::*skill-registry*)
   (passepartout:defskill :evil-skill
     :priority 100
@@ -164,7 +164,7 @@
     (is (not (null (find-if (lambda (line) (search "CRITICAL BRAIN FAILURE" line)) logs))))))
 
 (test test-process-signal-normal-path
-  "A valid signal should pass through the pipeline without error."
+  "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))))
@@ -174,6 +174,6 @@
       (fail "Pipeline crashed on normal signal: ~a" c))))
 
 (test test-loop-process-returns-nil-on-deep
-  "Processing a signal at depth > 10 should return nil."
+  "Contract 1: depth > 10 returns nil from loop-process."
   (let ((result (loop-process '(:type :EVENT :depth 11 :payload (:sensor :heartbeat)))))
     (is (null result))))