This seems better than crashing because nil isn't a thing that can have
characters extracted from it.
(pprint-logical-block (stream nil)
(print-text doc stream))
(terpri stream))
(pprint-logical-block (stream nil)
(print-text doc stream))
(terpri stream))
(setf newlinep t)
(pprint-logical-block (stream nil :prefix " ")
(format stream "~:[ ~;-~:*~C,~] --~A"
(setf newlinep t)
(pprint-logical-block (stream nil :prefix " ")
(format stream "~:[ ~;-~:*~C,~] --~A"