anchor.diff:                (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*))))))
  +          (format stream *lorem-ipsum*)))))
  +  (terpri stream)
  +  (clime:with-temporary-margins (stream :left 50 :right 50)
  +    (terpri stream)
  +    (clim:with-bounding-rectangle* (x1 y1 x2 y2)
  +        (clime:stream-page-region *standard-output*)
  +      (declare (ignore y1 y2))
  +      (let ((cy (nth-value 1 (stream-cursor-position stream))))
  +        (clim:draw-rectangle* *standard-output* x1 cy x2 (+ cy 100)
  +                              :filled nil
  +                              :ink clim:+grey+)))
  +    (filling-output (stream
  +                     :after-line-break
  +                     (lambda (stream soft-p)
  +                       (if (null soft-p)
  +                           (with-drawing-options (stream :ink +red+)
  +                             (stream-increment-cursor-position stream 40 10)
  +                             (format stream "hard: "))
  +                           (with-drawing-options (stream :ink +blue+)
  +                             (stream-increment-cursor-position stream 20 0)
  +                             (format stream "soft newline: "))))
  +                     :after-line-break-initially t)
  +      (format stream *lorem-ipsum*))))
   
   (defun misc-tests ()
     (let ((frame (make-application-frame 'misc-tests)))
  
positive.code: 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."
    (indenting-output (stream 20)
      (fresh-line stream)
      (format stream *lorem-ipsum*))
  
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*))
  