Fix 4 clojure.core bugs surfaced by JVM certification

The corpus certifier (test/conformance) flagged four cases where jolt's
hand-written :expected matched a real defect rather than Clojure. Fixed in the
jolt-core overlay, corrected the spec :expected, re-certified against JVM Clojure:

- ex-message: returns nil for a non-throwable (dropped the lenient string branch);
  still returns the message for ex-info. (jolt-l8e8)
- munge: preserves the argument's type — a symbol munges to a symbol, not a string.
  (jolt-hc35)
- print: (print nil) emits "nil", not "" (top-level nil guard; str yields "").
  (jolt-pqio)
- bounded-count: uses the counted? fast path (full count), else counts up to n via
  seq — was (min n (count coll)), wrong for counted colls. Added an uncounted-coll
  spec case. (jolt-2507)

Removed the 4 :bug entries from known-divergences.edn (now certified), regenerated
corpus + profile, re-minted the Chez bootstrap seed (clojure.core changed). Gates:
Janet 155/0, JVM certify clean, both Chez corpus gates 2534 (floors raised),
bootstrap 6/6, fixpoint intact.
This commit is contained in:
Yogthos 2026-06-20 11:06:33 -04:00
parent f54e99cc08
commit 6abbea3835
12 changed files with 329 additions and 345 deletions

View file

@ -1,11 +1,10 @@
{:doc
"Conformance profile for test/chez/corpus.edn, generated by certify.clj. Each entry is a NON-portable case (keyed by [suite label]) and the host feature(s) it requires. Cases NOT listed are portable — they pass on any faithful Clojure. A runtime's conformance LEVEL = portable + the feature families it implements. See SPEC.md.",
:clojure-version "1.12.5",
:portable-count 2670,
:non-portable-count 249,
:portable-count 2674,
:non-portable-count 246,
:feature-counts
{:bug 4,
:concurrency/snapshot 4,
{:concurrency/snapshot 5,
:host/arrays 12,
:host/janet 16,
:host/jvm-interop 174,
@ -20,6 +19,10 @@
:label "tracks in-ns",
:bucket :jvm-error,
:features [:host/jvm-interop]}
{:suite "clojure.core / futures — predicates",
:label "cancel an in-flight future returns true",
:bucket :divergent,
:features [:concurrency/snapshot]}
{:suite "clojure.core / futures — snapshot (copy) semantics",
:label "captured atom is snapshotted, not shared",
:bucket :divergent,
@ -28,10 +31,6 @@
:label "bigdec",
:bucket :divergent,
:features [:numerics/double-only]}
{:suite "clojure.core / leaf batch (complement fnil munge etc.)",
:label "munge symbol",
:bucket :divergent,
:features [:bug]}
{:suite "clojure.core / leaf batch (complement fnil munge etc.)",
:label "supers empty set",
:bucket :jvm-error,
@ -149,10 +148,6 @@
:label "ex-data via catch",
:bucket :jvm-error,
:features [:host/jvm-interop]}
{:suite "exceptions / ex-info",
:label "ex-message of string",
:bucket :divergent,
:features [:bug]}
{:suite "exceptions / ex-info",
:label "propagates to outer",
:bucket :jvm-error,
@ -481,10 +476,6 @@
:label "line-seq is lazy seq",
:bucket :jvm-error,
:features [:host/jvm-interop]}
{:suite "io / print family (overlay)",
:label "print nil arg",
:bucket :divergent,
:features [:bug]}
{:suite "io / print-method multimethod",
:label "StringWriter accumulates",
:bucket :jvm-error,
@ -717,10 +708,6 @@
:label "re-pattern is regex?",
:bucket :jvm-error,
:features [:host/jvm-interop]}
{:suite "seq / overlay-migrated fns",
:label "bounded-count",
:bucket :divergent,
:features [:bug]}
{:suite "set / nil element (jolt-bn2p)",
:label "transient conj! nil",
:bucket :jvm-error,