"Write the MODULE to STREAM, giving the output machinery the REASON.
This is the top-level interface for producing output."
- (let ((*done-one-off-output* nil)
+ (let ((*print-right-margin* 77)
+ (*done-one-off-output* nil)
(sequencer (make-instance 'sequencer))
(stream (if (typep stream 'position-aware-output-stream)
stream