anchor.diff:    (and (start-line-p) (bolp)))
   
   (defun eobp ()
  -  (and (tail-line-p) (eolp)))
  +  (and (end-line-p) (eolp)))
   
   (defun insert-char (c &optional (n 1))
     (dotimes (_ n t)
  
positive.code: (in-package :lem)
  
  (export '(start-line-p
            tail-line-p
            bolp
            eolp
            bobp
  
negative.code: (defun start-line-p ()
    (<= (current-linum) 1))
  
  (defun end-line-p ()
    (<= (buffer-nlines (current-buffer))
        (current-linum)))
  
  