Contract fixes from the baseline audit; every residual suite failure traced

Auditing the remaining cts baseline for R7 exposed real contract gaps hiding
among the model residue — all fixed to reference behavior:

- stale no-ratio-era stubs: numerator/denominator now work over jolt's exact
  rationals (non-ratio is the Ratio cast failure); rational? includes decimals
- casts and pending: peek/pop demand an IPersistentStack (pop nil is nil),
  realized? demands an IPending (a plain list/range throws), transient demands
  an editable COLLECTION (non-colls throw; the RFC 0003 sorted/list/seq
  superset keeps the copy-on-write fallback), empty on a plain record throws
- nil and empties: (nth nil i) is nil, (nth nil i d) is d, a nil index is NPE,
  keys/vals of anything empty are nil, (conj nil) is nil
- lookups: contains? on a string is index-only (other keys IAE), get on an
  array is lenient (nth still throws), a VECTOR invocation has nth semantics
  (([1 2] 5) throws — call position and jolt-invoke both)
- into only transients editable collections; a PersistentQueue/sorted target
  folds through conj (RT's IEditableCollection split)
- numbers: number?/num accept BigDecimal, quot/rem throw on an Infinite/NaN
  quotient, even?/odd? demand integers
- ordering: keywords compare namespace-first with nil first (Symbol.compareTo)
- misc: run! honors reduced, eval self-evaluates non-form values, intern
  demands an existing namespace, counted? excludes strings, seqable? includes
  arrays, shuffle rejects maps, sort-by rejects a collection comparator,
  when-let demands one binding pair, case*/deftype*/letfn*/reify*/& are
  special symbols

Two mis-certified corpus rows fixed (they threw on the JVM too and hid in the
tolerated bucket): a raw \d string escape and duplicate literal map keys.

SPEC.md gains the baseline-traceability section: every one of the 146
remaining suite failures maps to a documented divergence (integer-box,
no-single-float, RFC 0003 transients, seq/chunking model, stm-refs,
parse-uuid strictness, vec-array adoption). cts baseline 5955 -> 6042 pass,
5 errors, 30 namespaces. 9 JVM-certified corpus rows.

test/chez/corpus.edn

@@ -1885,7 +1885,7 @@
   {:suite "reader / comments inside maps" :label "comment with parens" :expected "{:a {:b 1}}" :actual "{:a ; dev (REPL, etc)\n {:b 1}}"}
   {:suite "reader / comments inside maps" :label "nested with comments" :expected "{:x {:y 2}}" :actual "{:x ; outer\n {:y ; inner\n 2}}"}
   {:suite "regex / literals & predicate" :label "regex? literal" :expected "true" :actual "(regex? #\"\\d+\")"}
-  {:suite "regex / literals & predicate" :label "regex? non-regex" :expected "false" :actual "(regex? \"\\d+\")"}
+  {:suite "regex / literals & predicate" :label "regex? non-regex" :expected "false" :actual "(regex? \"\\\\d+\")"}
   {:suite "regex / literals & predicate" :label "escaped digits" :expected "\"42\"" :actual "(re-find #\"\\d+\" \"x42y\")"}
   {:suite "regex / literals & predicate" :label "escaped ws/non-ws" :expected "\"x a\"" :actual "(re-find #\"\\S\\s\\S\" \"x a b y\")"}
   {:suite "regex / re-find" :label "match" :expected "\"123\"" :actual "(re-find #\"\\d+\" \"abc123def\")"}
@@ -2959,7 +2959,7 @@
   {:suite "dynamic vars / *print-meta*" :label "*print-meta* is a bindable dynamic var" :expected "true" :actual "(binding [*print-meta* true] (true? *print-meta*))"}
   {:suite "tagged literals / value equality" :label "equal tag+form are =" :expected "true" :actual "(= (tagged-literal (quote x) [1 2]) (tagged-literal (quote x) [1 2]))"}
   {:suite "tagged literals / value equality" :label "different tag is not =" :expected "false" :actual "(= (tagged-literal (quote x) [1]) (tagged-literal (quote y) [1]))"}
-  {:suite "tagged literals / value equality" :label "dedup as map keys" :expected "1" :actual "(count {(tagged-literal (quote x) [1]) :a (tagged-literal (quote x) [1]) :b})"}
+  {:suite "tagged literals / value equality" :label "duplicate literal keys throw at read (same form twice)" :expected :throws :actual "(count {(tagged-literal (quote x) [1]) :a (tagged-literal (quote x) [1]) :b})"}
   {:suite "interop / clojure.lang interfaces" :label "vector is IObj" :expected "true" :actual "(instance? clojure.lang.IObj [1])"}
   {:suite "interop / clojure.lang interfaces" :label "map entry is IMapEntry" :expected "true" :actual "(instance? clojure.lang.IMapEntry (first {:a 1}))"}
   {:suite "interop / clojure.lang interfaces" :label "record is IRecord" :expected "true" :actual "(do (defrecord R [a]) (instance? clojure.lang.IRecord (->R 1)))"}
@@ -3574,4 +3574,13 @@
   {:suite "edn / strictness" :label "#inst and #uuid validate their fields" :expected "[:t :t :t]" :actual "[(try (clojure.edn/read-string \"#inst \\\"2010-02-29T00:00:00.000Z\\\"\") (catch Throwable _ :t)) (try (clojure.edn/read-string \"#inst \\\"2010-01-01T24:00:00.000Z\\\"\") (catch Throwable _ :t)) (try (clojure.edn/read-string \"#uuid \\\"not-a-uuid\\\"\") (catch Throwable _ :t))]"}
   {:suite "reader / strict tokens" :label "the core reader rejects invalid numbers and duplicate keys too" :expected "[:nfe :dup 34]" :actual "[(try (read-string \"1a\") (catch NumberFormatException _ :nfe)) (try (read-string \"{:a 1 :a 2}\") (catch IllegalArgumentException _ :dup)) (read-string \"042\")]"}
   {:suite "reader / symbol intern" :label "1-arg symbol splits ns at the first slash (Symbol.intern)" :expected "[\"foo\" \"bar/baz\" \"/\"]" :actual "[(namespace (symbol \"foo/bar/baz\")) (name (symbol \"foo/bar/baz\")) (name (symbol \"foo//\"))]"}
+  {:suite "contracts / stacks and pending" :label "peek/pop demand a stack; realized? demands IPending; pop nil is nil" :expected "[:cce :cce nil nil nil]" :actual "[(try (peek (range 10)) (catch ClassCastException _ :cce)) (try (realized? (quote (1 2))) (catch ClassCastException _ :cce)) (pop nil) (nth nil 10) (conj nil)]"}
+  {:suite "contracts / collection fns" :label "keys/vals of empties are nil; contains? on a string is index-only" :expected "[nil nil nil :iae true false]" :actual "[(keys []) (vals #{}) (keys \"\") (try (contains? \"abc\" \"a\") (catch IllegalArgumentException _ :iae)) (contains? \"abc\" 1) (contains? \"abc\" 5)]"}
+  {:suite "contracts / collection fns" :label "transient demands an editable collection; empty on a record throws" :expected "[:cce :uoe]" :actual "[(try (transient 1) (catch ClassCastException _ :cce)) (do (defrecord EmptyRec [a]) (try (empty (->EmptyRec 1)) (catch UnsupportedOperationException _ :uoe)))]"}
+  {:suite "contracts / numbers" :label "numerator/denominator over real ratios; even?/odd? demand integers" :expected "[1 3 :cce :iae]" :actual "[(numerator 1/2) (denominator 2/3) (try (numerator 2) (catch ClassCastException _ :cce)) (try (even? 1.5) (catch IllegalArgumentException _ :iae))]"}
+  {:suite "contracts / numbers" :label "number?/rational?/num accept BigDecimal; NaN quotient throws" :expected "[true true 1.5M :nfe]" :actual "[(number? 1.5M) (rational? 1M) (num 1.5M) (try (quot ##NaN 1) (catch NumberFormatException _ :nfe))]"}
+  {:suite "contracts / ordering" :label "keywords order namespace-first with nil first, like symbols" :expected "[true true true]" :actual "[(neg? (compare :cat :animal/cat)) (neg? (compare :animal/cat :b/cat)) (zero? (compare :dog :dog))]"}
+  {:suite "contracts / misc" :label "vector invocation has nth semantics; run! honors reduced; eval self-evaluates values" :expected "[:ioob 1 true]" :actual "[(try ([1 2] 5) (catch IndexOutOfBoundsException _ :ioob)) (let [c (atom 0)] (run! (fn [x] (swap! c inc) (reduced x)) [1 2 3]) (deref c)) (fn? (eval +))]"}
+  {:suite "contracts / misc" :label "intern demands an existing ns; counted? excludes strings; seqable? includes arrays" :expected "[:t false true]" :actual "[(try (intern (quote no-such-ns-xyz) (quote v) 1) (catch Throwable _ :t)) (counted? \"s\") (seqable? (object-array 2))]"}
+  {:suite "contracts / misc" :label "nth of nil honors notFound; a nil index throws; the starred specials are special" :expected "[:default :npe [true true true true true]]" :actual "[(nth nil 5 :default) (try (nth [1] nil) (catch NullPointerException _ :npe)) [(special-symbol? (quote case*)) (special-symbol? (quote deftype*)) (special-symbol? (quote letfn*)) (special-symbol? (quote reify*)) (special-symbol? (quote &))]]"}
 ]

test/chez/cts-known-failures.txt

@@ -5,55 +5,29 @@ clojure.core-test.abs 1 0
 clojure.core-test.add-watch 0 1
 clojure.core-test.bigint 6 0
 clojure.core-test.bit-set 1 0
-clojure.core-test.compare 1 0
-clojure.core-test.conj 1 0
-clojure.core-test.contains-qmark 3 0
-clojure.core-test.counted-qmark 1 0
 clojure.core-test.dec 1 0
-clojure.core-test.denominator 0 3
 clojure.core-test.double-qmark 3 0
-clojure.core-test.empty 1 0
 clojure.core-test.eq 2 0
-clojure.core-test.eval 0 3
-clojure.core-test.even-qmark 1 0
 clojure.core-test.float 1 0
-clojure.core-test.get 0 1
 clojure.core-test.inc 1 0
 clojure.core-test.int-qmark 3 0
-clojure.core-test.intern 2 0
-clojure.core-test.keys 0 4
-clojure.core-test.lazy-seq 3 0
+clojure.core-test.lazy-seq 1 2
 clojure.core-test.minus 2 0
-clojure.core-test.mod 23 0
+clojure.core-test.mod 18 0
 clojure.core-test.neg-int-qmark 1 0
 clojure.core-test.not-eq 3 0
-clojure.core-test.nth 0 1
-clojure.core-test.num 2 1
-clojure.core-test.number-qmark 3 0
-clojure.core-test.numerator 0 3
-clojure.core-test.odd-qmark 1 0
+clojure.core-test.num 2 0
 clojure.core-test.parse-uuid 3 0
-clojure.core-test.peek 2 0
+clojure.core-test.peek 1 0
 clojure.core-test.plus 11 0
 clojure.core-test.plus-squote 11 0
-clojure.core-test.pop 0 1
 clojure.core-test.pos-int-qmark 1 0
-clojure.core-test.quot 30 0
+clojure.core-test.quot 25 0
 clojure.core-test.rand-nth 0 1
-clojure.core-test.rational-qmark 3 0
-clojure.core-test.realized-qmark 3 0
-clojure.core-test.rem 21 0
+clojure.core-test.realized-qmark 1 0
+clojure.core-test.rem 16 0
 clojure.core-test.remove-watch 0 1
-clojure.core-test.run-bang 1 0
-clojure.core-test.select-keys 2 0
-clojure.core-test.seqable-qmark 1 0
-clojure.core-test.shuffle 1 0
-clojure.core-test.sort-by 2 0
-clojure.core-test.special-symbol-qmark 4 0
 clojure.core-test.star 13 0
 clojure.core-test.star-squote 13 0
-clojure.core-test.transient 23 0
-clojure.core-test.update 1 0
-clojure.core-test.vals 0 3
+clojure.core-test.transient 4 0
 clojure.core-test.vec 1 0
-clojure.core-test.when-let 1 0

test/conformance/SPEC.md

@@ -205,3 +205,40 @@ corpus`.
   deliberate delta (classify it in `known-divergences.edn`).
 - **Refresh the profile**: re-run with `--profile test/conformance/profile.edn`.
 - **Re-floor the runtime gate** when parity rises (`host/chez/run-corpus.ss`).
+
+## clojure-test-suite baseline traceability
+
+Every residual entry in `test/chez/cts-known-failures.txt` traces to one
+documented model divergence — nothing in the baseline is an unexplained bug:
+
+- `:integer-box-model` (this file, above): every `big-int?`/`instance?
+  Byte…BigInt` class check, the overflow-throw rows (`(+ max-long 1)` is a
+  bignum, not ArithmeticException — abs/inc/dec/minus/plus/star/quot/rem/mod/
+  bit-set and the `+'`/`*'` promotion-identity namespaces), boxed-identity
+  rows (`(identical? (Boolean. "true") true)`, `(= x x)` on a boxed NaN — jolt
+  numbers are immediates, there is no box to distinguish), and `num`'s
+  primitive-overload reflection rows.
+- **no single float** (Narrow integer types, above): `(float Double/MIN_VALUE)`
+  keeps the double value instead of rounding to 0.0f; `(double? (float x))`
+  is true.
+- **RFC 0003 transients**: `(transient sorted/list/lazy-seq)` succeeds through
+  the copy-on-write fallback (a deliberate superset; non-collections now throw
+  like the JVM), and double-transient is idempotent rather than throwing.
+- `:seq-type-model`/`:chunking-model` (Seq semantics, above): `realized?` on
+  the rest of a realized chain (a plain seq cell on jolt, a cached LazySeq on
+  the JVM), `p/lazy-seq?` on forced rest chains, and chunk-granularity
+  realization counts (lazy-seq namespace).
+- **stm-refs** (`coverage.md`): the `(ref …)`/`dosync` sections of the watch
+  namespaces (add-watch/remove-watch) — refs are out of scope pending the
+  concurrency design note.
+- **parse-uuid strictness** (spec §9, parse-uuid S3): jolt is deliberately
+  strict where the reference's java.util.UUID accepts non-canonical forms
+  like `"0-0-0-0-0"`.
+- **vec of an array copies**: the reference ADOPTS an Object array (mutating
+  the array mutates the vector); jolt copies — immutable semantics win over
+  the implementation leak (`vec` namespace, one row).
+- **eval of JVM shapes** (`rand-nth`/`eval` residue): rows needing JVM-only
+  evaluation shapes (e.g. evaluating a Java array literal).
+
+A future change that makes any of these rows pass will fail the cts gate as
+STALE, forcing this section and the baseline to be updated together.