src/class-finalize-impl.lisp (check-sod-class): Remove `w/del' wrapper.

[sod] / src / module-output.lisp

diff --git a/src/module-output.lisp b/src/module-output.lisp
index 1bfb34fb92926b65a0c905d224671b08d1d6e0c8..c3c61d6c534fb4786707e1626d6e735b110f796f 100644 (file)
--- a/src/module-output.lisp
+++ b/src/module-output.lisp
@@ -87,7 +87,8 @@ (defun output-module (module reason stream)
   "Write the MODULE to STREAM, giving the output machinery the REASON.
 
    This is the top-level interface for producing output."
   "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
        (sequencer (make-instance 'sequencer))
        (stream (if (typep stream 'position-aware-output-stream)
                    stream