Bump to v0.97.5: clojure.spec.alpha abbrev/describe

Adds the two canon introspection helpers that the spec.alpha audit
flagged. Generators (gen, exercise) continue to throw :mino/unsupported.

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

Author: leifericf

CHANGELOG.md

@@ -1,5 +1,18 @@
 # Changelog
 
+## v0.97.5 — clojure.spec.alpha Introspection Utilities
+
+`clojure.spec.alpha` gains the two canon introspection helpers:
+
+- `abbrev` — strips namespace qualifiers from symbols and shortens
+  `(fn [%] body)` to `body`, so spec forms read cleanly in
+  diagnostics.
+- `describe` — returns `(abbrev (form spec))`, the canonical
+  human-readable description of a registered or anonymous spec.
+
+The namespace now requires `[clojure.walk :as walk]`. Generators
+(`gen`, `exercise`) continue to throw `:mino/unsupported`.
+
 ## v0.97.4 — Lift defn So Top-Of-File Predicates Use It
 
 `defn`, `defn-`, `defonce`, and the private `fn-arity-with-prepost`

lib/clojure/spec/alpha.clj

@@ -17,7 +17,8 @@
 ;; special-form dispatch and fire the macros instead, leaving the var
 ;; unbound.
 
-(ns clojure.spec.alpha)
+(ns clojure.spec.alpha
+  (:require [clojure.walk :as walk]))
 
 (def ^:private registry-ref (atom {}))
 
@@ -136,6 +137,34 @@
     (and (map? x) (::form x)) (::form x)
     :else                    ::unknown))
 
+(defn abbrev
+  "Return an abbreviated description of a spec form. Strips namespace
+  qualifiers from symbols and shortens (fn [%] body) to body."
+  [form]
+  (cond
+    (seq? form)
+    (walk/postwalk
+      (fn [f]
+        (cond
+          (and (symbol? f) (namespace f))
+          (symbol (name f))
+
+          (and (seq? f) (= 'fn (first f)) (= '[%] (second f)))
+          (last f)
+
+          :else f))
+      form)
+
+    (symbol? form)
+    (symbol (name form))
+
+    :else form))
+
+(defn describe
+  "Return an abbreviated description of the spec as data."
+  [spec]
+  (abbrev (form spec)))
+
 ;; ---------------------------------------------------------------------------
 ;; pred -- bare predicates promoted to specs.
 ;; ---------------------------------------------------------------------------

src/mino.h

@@ -27,7 +27,7 @@
  */
 #define MINO_VERSION_MAJOR 0
 #define MINO_VERSION_MINOR 97
-#define MINO_VERSION_PATCH 4
+#define MINO_VERSION_PATCH 5
 
 /*
  * Human-readable version string of the *linked* runtime, e.g. "0.48.0".