¿Cómo puedo obtener Clojure: pre&: post para reportar su valor fallido?

(defn string-to-string [s1] 
  {:pre  [(string? s1)]
   :post [(string? %)]}
  s1)

Me gustan las condiciones :pre y :post, me permiten averiguar cuándo he puesto "clavijas cuadradas en agujeros redondos" más rápidamente. Tal vez está mal, pero me gusta usarlos como una especie de verificador tipo pobre hombre. Sin embargo, esto no es filosofía, es una pregunta simple.

Parece en el código anterior que debería ser fácilmente capaz de determinar que s1 es un argumento de función en la condición :pre. Similarmente, % en la condición :post es siempre el valor de retorno de la función.

Lo que me gustaría es imprimir el valor de s1 o % cuando cualquiera de estas condiciones respectivas fallan dentro del AssertionError. Así que tengo algo como

(string-to-string 23)

AssertionError Assert failed: (string? s1) 
(pr-str s1) => 23 

Con el AssertionError conteniendo una sola línea para cada variable que fue identificada como de la lista de argumentos de la función y que fue referenciada en la prueba fallida. También me gustaría algo similar cuando el valor devuelto de la función falla la condición :post.

Esto lo haría trivial para detectar rápidamente cómo hice un mal uso de una función al intentar diagnosticar desde el AssertionError. Al menos me haría saber si el valor es nil o un valor real (que es el error más común que hago).

Tengo algunas ideas de que esto podría hacerse con una macro, pero me preguntaba si había alguna forma segura y global de redefinir básicamente lo que (defn y (fn y amigos hacen para que :pre y :post también impriman los valores que conducen a que la prueba falle.