anchor.diff:  (defun %skip-list-backward (point depth)
     (loop :with paren-stack := '()
           :do
  -        (unless (skip-space-and-comment-backward point)
  -          (return nil))
  +        (when (end-line-p point)
  +          (let ((p (inline-line-comment-p point)))
  +            (when p (move-point point p))))
           (when (start-buffer-p point)
             (return nil))
           (let ((c (character-at point -1))
  
positive.code:                                (return (values (move-point point curr) t))))
                              (t
                               (incf depth))))))
          (let ((p (inline-line-comment-p point)))
            (if p
                (values (move-point point p) t)
                (values nil t))))))
  
  (defun skip-space-and-comment-forward (point)
    (with-point-syntax point
  
negative.code:                 ((syntax-fence-char-p c)
                   (%skip-fence-backward point))
                  (t
                   (multiple-value-bind (p win)
                       (%skip-block-comment-backward point)
                     (unless win
                       (return nil))
                     (unless p
                       (character-offset point -1))))))))
  
  (defun %form-offset-positive (point)
    (skip-space-and-comment-forward point)
  