anchor.diff:  Second case uses FILLING-OUTPUT,
   Third case uses INDENTING-OUTPUT over FILLING-OUTPUT,
   Fourth case FILLING-OUTPUT over INDENTING-OUTPUT,
  -Fifth case is a nested mix of two above."
  +Fifth case is a nested mix of two above,
  +Sixth case exhibits vertical gap between paragraphs and margins."
     (indenting-output (stream 20)
       (fresh-line stream)
       (format stream *lorem-ipsum*))
  
positive.code:               (with-drawing-options (stream :text-style *default-text-style* :ink +dark-blue+)
                  (format stream *lorem-ipsum*)))))
          (with-drawing-options (stream :text-style *default-text-style* :ink +black+)
            (format stream *lorem-ipsum*))))))
  
  (defun misc-tests ()
    (let ((frame (make-application-frame 'misc-tests)))
  
negative.code:           (format stream *lorem-ipsum*))
          (indenting-output (stream 20)
            (with-drawing-options (stream :ink +dark-red+)
              (filling-output (stream :fill-width '(80 :character)
                                      :break-characters '(#\space)
                                      :after-line-break "| "
                                      :after-line-break-composed nil
                                      :after-line-break-initially t
                                      :after-line-break-subsequent t)
                (fresh-line stream)
                (with-drawing-options (stream :text-style *default-text-style* :ink +dark-blue+)
                  (format stream *lorem-ipsum*)))))
          (fresh-line stream)
          (with-drawing-options (stream :text-style *default-text-style* :ink +black+)
            (format stream *lorem-ipsum*))
  