anchor.diff:            (start-record (fifth (cadar lines)))
             (end-i 0)
             (end-record (fifth (cadar (last lines)))))
  -      
  +
         (loop for chunk in (cdr (first lines)) do
           (destructuring-bind (x y string ts record full-record) chunk
             (declare (ignorable x y string ts record full-record))
  
positive.code: 
  (defmethod dispatch-event :around ((pane text-selection-mixin)
                                     (event pointer-button-release-event))
    (if (shift-rl-click-event-p event)
        (eos/shift-release pane event)
        (call-next-method)))
  
  (defmethod dispatch-event :around ((pane text-selection-mixin)
                                     (event pointer-motion-event))
    (with-slots (point-1-x dragging-p) pane
      (if (eql (event-modifier-state event) +shift-key+)
          (when dragging-p
            (eos/shift-drag pane event))
          (call-next-method))))
  
  
  (defun pane-clear-markings (pane &optional time)
    (declare (ignore time))
  
negative.code:       (repaint-markings pane old-markings (slot-value pane 'markings)))))
  
  (defun shift-rl-click-event-p (event)
    (and (eql (event-modifier-state event) +shift-key+)
         (let ((button (pointer-event-button event)))
           (or (eql button +pointer-left-button+)
               (eql button +pointer-right-button+)))))
  
  (defmethod dispatch-event :around ((pane text-selection-mixin)
                                     (event pointer-button-press-event))
  