在clojure zprint中配置符号引号扩展

有没有办法避免将

zprint

写入

'my-symbol

作为

（引用我的符号）

？我知道是读者把它转换成了那种形式。 但是，我希望zprint可以配置为生成更惯用的格式，这是clojure.pprint的默认格式

（需要“[zprint.core:as zp]”）
（zp/zprint（def foo“我的符号））
;; （def foo（引用我的符号））
（需要“[clojure.pprint:as pp]”）
（pp/pprint（def foo“我的符号））
;; （def foo'我的符号）

参见相关问题：

在bfabry的评论之后，作为一种解决方法，我们可以使用pprint创建引用良好的字符串，然后将其通过zprint进行格式化：

（需要“[zprint.core:as zp]”）
（需要“[clojure.pprint:as pp]”）
（->'（def foo'我的符号）
pp/pprint
无str
（zp/zprint 40{：解析字符串？true}））
（def foo'我的符号）
无

Hmm。理想情况下，zprint似乎会使用clojure.pprint作为其基本级别的表单打印机，但我想它不会。这是pprint中处理此问题的行