anchor.diff:          (loop :with start := 0
                 :for pos := (position #\newline string :start start)
                 :for line := (point-line point) :then (line-next line)
  -              :for linum :from (point-linum point) :by 1
                 :for charpos := (point-charpos point) :then 0
                 :do (cond ((null pos)
  -                         (%insert-line-string/point buffer linum line charpos
  +                         (%insert-line-string/point line charpos
                                                       (subseq string start))
                            (return))
                           (t
                            (let ((substr (subseq string start pos)))
  -                           (%insert-line-string/point buffer linum line charpos substr)
  -                           (%insert-newline/point buffer linum line
  +                           (%insert-line-string/point line charpos substr)
  +                           (%insert-newline/point buffer
  +                                                  line
                                                     (+ charpos (length substr)))
                              (setf start (1+ pos))))))))
       string))
  
positive.code:                               (subseq (line-str line) charpos))))))
        char)))
  
  (defun %insert-line-string/point (buffer linum line charpos string)
    (check-read-only-at-point line charpos 0)
    (shift-sticky-objects buffer linum line charpos (length string))
    (setf (line-str line)
          (concatenate 'string
                       (subseq (line-str line) 0 charpos)
  
negative.code: 
  (defun %delete-line-eol/point (point start)
    (declare (special killring-stream line))
    (shift-sticky-objects-subtract-line point)
    (write-string (line-str line) killring-stream :start start)
    (setf (line-str line)
          (subseq (line-str line) 0 start)))
  
  (defun %delete-line/point (point start)
    (declare (special killring-stream line buffer n))
    (shift-sticky-objects-subtract-line point)
    (write-string (line-str line) killring-stream :start start)
    (write-char #\newline killring-stream)
    (unless (eq n 'T)
  