anchor.diff:    (etypecase syntax
       (syntax-region
        (let ((start-charpos (point-charpos point))
  -           (point (syntax-test-match-p (syntax-region-start syntax) point 'region-side :start)))
  +           (point (syntax-test-match-p (syntax-region-start syntax) point)))
          (when point
            (syntax-scan-region syntax point start-charpos)
            point)))
  
positive.code:              (character-offset point 1)
               (when (end-line-p point)
                 (return)))
              ((syntax-test-match-p (syntax-region-end region) point 'region-side :end)
               (line-add-property (point-line point)
                                  start-charpos (point-charpos point)
                                  :attribute (syntax-attribute region)
  
negative.code: 	   :when (/= 0 lifetime)
  	   :collect (cons symbol (1- lifetime)))))
  
  (defun syntax-test-match-p (syntax-test point)
    (let ((string (line-string point)))
      (multiple-value-bind (start end)
          (ppcre:scan (syntax-test-thing syntax-test)
  