anchor.diff:                       (tm-ahead-match (tm-result-rule result)
                                        (tm-ahead-matcher (tm-result-rule result))
                                        string
  -                                     i)))
  +                                     i
  +                                     nil)))
                   (setf (car rest-results)
                         new-result)))))
   
  
positive.code:        (equal (tm-result-reg-ends result1)
                (tm-result-reg-ends result2))))
  
  (defun tm-get-results-from-patterns (patterns string start)
    (loop :for rule :in patterns
          :for result := (tm-ahead-match rule (tm-ahead-matcher rule) string start)
          :when result
          :collect result))
  
  
negative.code:   (let ((results
           (tm-get-results-from-patterns (tmlanguage-patterns (current-syntax-parser))
                                         (line-string point)
                                         (point-charpos point)
                                         nil)))
      (loop
        (let ((best (tm-best-result results)))
          (unless best (return))
  