anchor.diff:      (cond ((not win)
              (values nil nil))
             ((null p)
  -           (let ((p (maybe-beginning-of-comment point)))
  +           (let ((p (inline-line-comment-p point)))
                (if p
                    (values (move-point point p) t)
                    (values nil t))))
  
positive.code:                        (unless p
                           (character-offset point -1))))))
              (when (end-line-p point)
                (let ((p (maybe-beginning-of-comment point)))
                  (when p (move-point point p))))))
  
  (defun %form-offset-positive (point)
  
negative.code: 
  (defun skip-space-and-comment-backward (point)
    (with-point-syntax point
      (if (inline-line-comment-p point)
          (skip-chars-backward point #'syntax-space-char-p)
          (loop
            (skip-chars-backward point #'syntax-space-char-p)
  