anchor.diff:  
   (defun syntax-update-symbol-tov ()
     (setq *syntax-symbol-tov-list*
  -        (loop :for flag-keyword :in *syntax-symbol-tov-list*
  -          :if (plusp (car flag-keyword))
  -          :collect (cons (1- (car flag-keyword))
  -                         (cdr flag-keyword)))))
  +        (loop :for (symbol . tov) :in *syntax-symbol-tov-list*
  +          :when (/= 0 tov)
  +          :collect (cons symbol (1- tov)))))
   
   (defun syntax-matched-word (line skw start end)
     (when (or (not (syntax-keyword-word-p skw))
  
positive.code:                  (or (<= (length (line-str line)) end)
                       (not (syntax-symbol-char-p (aref (line-str line) end))))))
      (when (syntax-keyword-matched-symbol skw)
        (push (cons (syntax-keyword-symbol-tov skw)
                    (syntax-keyword-matched-symbol skw))
              *syntax-symbol-tov-list*))
      (when (syntax-keyword-attr skw)
        (line-put-attribute line start end (get-attr (syntax-keyword-attr skw))))
      t))
  
negative.code: (defun syntax-add-keyword (syntax-table
                             test
                             &key
                             regex-p word-p test-symbol end-symbol attr
                             matched-symbol symbol-tov)
    (push (make-syntax-keyword :test (if regex-p
                                         (ppcre:create-scanner test)
  