anchor.diff:  	   ((medium-transformation medium)
               +identity-transformation+) ; Is it necessary?
              )
  -      (when (and cursor (cursor-visibility cursor))
  +      (when (and cursor (cursor-state cursor))
   	(climi::display-cursor cursor :erase))
         (multiple-value-bind (x y) (output-record-position record)
   	(declare (ignore y))
   	(draw-text* stream (current-contents record)
                       x (slot-value record 'baseline)))
  -      (when (and cursor (cursor-visibility cursor))
  +      (when (and cursor (cursor-state cursor))
   	(climi::flip-screen-cursor cursor)))))
   
   (defmethod output-record-refined-position-test ((record screen-line) x y)
  
positive.code: 			    line-unchanged-from-start
  			    line-unchanged-from-end)
  	  (get-line-differences line)
  	(when (and cursor (cursor-visibility cursor))
  	  (setf (cursor-visibility cursor) nil))
  	(unless unchanged
  	  (let* ((area (editable-area line))
  		 (start-width (if (> current-unchanged-from-start 0)
  
negative.code:   (dbl-kill-after (lines area))
    (setf (line (area-bp-start area)) nil)
    (setf (line (area-bp-end area)) nil)
    (letf (((cursor-visibility (cursor area)) :off))
      (initialize-area-from-buffer area (buffer area)))
    (with-bounding-rectangle* (x1 y1 x2 y2)
        area
  