(defn
fresh-line
"Make a newline if *out* is not already at the beginning of the line. If *out* is\nnot a pretty writer (which keeps track of columns), this function always outputs a newline."
[]
(if
(satisfies? IDeref *out*)
(if (not (= 0 (get-column (:base @@*out*)))) (prn))
(prn)))