doc/concepts.tex: Fix subclass/superclass confusion.

[sod] / src / module-output.lisp

diff --git a/src/module-output.lisp b/src/module-output.lisp
index 1bfb34f..c3c61d6 100644 (file)
--- a/src/module-output.lisp
+++ b/src/module-output.lisp
@@ -87,7 +87,8 @@
   "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