anchor.diff:        (with-point ((start point))
           (skip-chars-forward point #'syntax-symbol-char-p)
           (points-to-string start point)))))
  -
  - 
   (defun %skip-comment-forward (point)
     (multiple-value-bind (n pair)
  
positive.code:               (values (line-offset point 0 line-comment-pos) t)
                (values nil t))))))
  
  (defun %sexp-escape-p (point offset)
    (let ((count 0))
      (loop :with string := (line-string point)
  
negative.code:   (with-point-syntax point
      (skip-chars-backward point #'syntax-space-char-p)))
  
  (defun symbol-string-at-point (point)
    (with-point-syntax point
      (with-point ((point point))
  