在下述脚本中,有一个被 print-table 忽略但由 print-table2 使用的 ZonedDateTime 的 defmethod,它使用 (print-str col) 而不是 (str col)
;; 隐藏时区位置
(defmethod print-method java.time.ZonedDateTime
[v ^java.io.Writer w]
(.write w "#inst \"")
(.write w (.format v java.time.format.DateTimeFormatter/ISO_OFFSET_DATE_TIME))
(.write w "\""))
=> #object[clojure.lang.MultiFn 0x7a030531 "clojure.lang.MultiFn@7a030531"]
(clojure.pprint/print-table [{:a (java.time.ZonedDateTime/now)}])
| :a |
|-------------------------------------------------|
| 2021-04-17T20:55:56.794+12:00[Pacific/Auckland] |
=> nil
(print-table2 [{:a (java.time.ZonedDateTime/now)}])
| :a |
|-------------------------------------------------|
| #inst "2021-04-17T20:56:48.715+12:00" |