anchor.diff:  
   ;;;
   
  -(defmethod repaint-sheet :around ((stream standard-extended-output-stream)
  -				  region)
  +(defmethod handle-repaint :around ((stream standard-extended-output-stream)
  +                                   region)
     (declare (ignorable region))
     (let ((cursor (stream-text-cursor stream)))
       (if (cursor-visibility cursor)
  
positive.code: 	 :accessor stream-default-view)
     (baseline :initform 0
  	     :reader stream-baseline)
     (height :initform 0)
     )
    )
  
  (defmethod initialize-instance :after ((stream standard-extended-output-stream) &rest args)
    (declare (ignore args))
  
negative.code:                    cx (+ cy baseline)))))
  
  (defmethod stream-write-char ((stream standard-extended-output-stream) char)
    (let* ((cursor       (stream-text-cursor stream))
  	 (visible      (cursor-visibility cursor))
  	 (medium       (sheet-medium stream))
  	 (port         (port stream))
  	 (text-style   (medium-text-style medium))
  	 (new-baseline (text-style-ascent text-style medium))
  	 (new-height   (text-style-height text-style medium))
  	 (margin       (stream-text-margin stream))
           (%view-height (bounding-rectangle-height
                          (or (pane-viewport stream)
                              stream)))
  	 (view-height  (bounding-rectangle-height
                          stream)))
      (if visible
  	(setf (cursor-visibility cursor) nil))
      (with-slots (baseline height vspace) stream
  