W14: pin K09/K11/K39 landed W5 special-form fixes (test-only)

Three dc7aa709 fixes shipped without pinning tests:
- K09: R7RS longhand (unquote-splicing X) now splices (was silent zero-splice)
- K11: guard re-raise sentinel gensym'd — a user value shaped like
  (list '__guard-reraise__ X) is data, not a forged re-raise
- K39: (do ((fn (x) x) 5) 99) -> 99, not a misparsed Scheme do-loop

Add suites gate-K09-longhand-unquote-splicing, gate-K11-guard-reraise-forgeable,
gate-K39-do-iife-head to spec/tests/test-gate-pins.sx with exact reprs from
plans/sx-review/core.md. 261 passed / 0 failed under OCaml run_tests.

Test-only: no semantics edits, no push.

Co-Authored-By: Claude Opus 4.8 (1M context) <noreply@anthropic.com>

plans/agent-briefings/sx-gate-loop.md

@@ -46,7 +46,7 @@ Pin each confirmed-and-fixed finding with a minimal repro. Add suites to
 
 - [x] K18 [W7] — `expt` overflow now float-promotes (no 63-bit wrap)
 - [x] K20 [W7] — `contains?` now supports dict key membership
-- [ ] K09/K11/K39 [W5] — landed special-form fixes, pin each
+- [x] K09/K11/K39 [W5] — longhand `unquote-splicing`, guard sentinel gensym, `do` IIFE-head
 - [ ] K49 [W8] — render depth/cycle guard (infinite recursive component)
 - [ ] crit-2 [W1] — signal-return frame key (verify the pin is non-vacuous)
 - [ ] C1/C1b [W3] — HTTP-mode concurrency fixes, pin
@@ -77,6 +77,16 @@ Pin each confirmed-and-fixed finding with a minimal repro. Add suites to
 
 ## Progress log (newest first)
 
+- 2026-07-03 — **K09/K11/K39 W5 special-form pins (item A.3)**. Three suites
+  added to `spec/tests/test-gate-pins.sx`: `gate-K09-longhand-unquote-splicing`
+  (R7RS longhand `(unquote-splicing X)` now splices, incl. empty-list case;
+  shorthand still works), `gate-K11-guard-reraise-forgeable` (a body/clause
+  value shaped like `(list '__guard-reraise__ X)` is returned as data, not
+  misread as a re-raise — sentinel is now gensym'd), `gate-K39-do-iife-head`
+  (`(do ((fn (x) x) 5) 99)` → 99, not a misparsed do-loop — exact core.md
+  repro). Gotchas hit and fixed: quasiquoted bare idents are *symbols* not
+  strings, and `assert=` compares with `=` (not `equal?`, which returns false
+  on these spliced lists). 261 passed / 0 failed under OCaml run_tests. Test-only.
 - 2026-07-03 — **K20 contains?-dict pin (item A.2)**. Mapped K-codes by
   core.md severity order (K17 append!, K18 expt, K19 harness-drift, K20
   contains?-dict). Added suite `gate-K20-contains-dict` to