(defn pprint-simple-list [alis]
(pprint-logical-block :prefix "(" :suffix ")"
(loop [alis (seq alis)]
(when alis
(write-out (first alis))
(when (next alis)
(.write ^java.io.Writer *out* " ")
(pprint-newline :linear)
(recur (next alis)))))))
Comments top
No comments for pprint-simple-list. Log in to add a comment.