(defn
pprint-newline
"Print a conditional newline to a pretty printing stream. kind specifies if the\n newline is :linear, :miser, :fill, or :mandatory.\n\n This function is intended for use when writing custom dispatch functions.\n\n Output is sent to *out* which must be a pretty printing writer."
[kind]
(check-enumerated-arg kind #{:mandatory :miser :fill :linear})
(nl *out* kind))