anchor.diff:  	   :when (/= 0 lifetime)
   	   :collect (cons symbol (1- lifetime)))))
   
  -(defun syntax-test-match-p (syntax-test point &optional optional-key optional-value)
  +(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)
  
positive.code:   (etypecase syntax
      (syntax-region
       (let ((start-charpos (point-charpos point))
             (point (syntax-test-match-p (syntax-region-start syntax) point 'region-side :start)))
         (when point
           (syntax-scan-region syntax point start-charpos)
           point)))
  
negative.code:              (character-offset point 1)
               (when (end-line-p point)
                 (return)))
              ((syntax-test-match-p (syntax-region-end region) point)
               (line-add-property (point-line point)
                                  start-charpos (point-charpos point)
                                  :attribute (syntax-attribute region)
  