anchor.diff:    (let ((str (line-str line)))
       (dolist (skw (syntax-table-keywords (current-syntax)))
         (when (or (not (syntax-keyword-test-symbol skw))
  -                (member (syntax-keyword-test-symbol skw)
  -                        *syntax-symbol-tov-list*
  -                        :key #'cdr))
  +                (find (syntax-keyword-test-symbol skw)
  +                      *syntax-symbol-tov-list*
  +                      :key #'car))
           (cond
            ((syntax-keyword-regex-p skw)
             (cond ((syntax-keyword-word-p skw)
  
positive.code: 
  (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)))))
  
  (defun syntax-matched-word (line skw start end)
    (when (or (not (syntax-keyword-word-p skw))
  
negative.code:   word-p
    test
    test-symbol
    end-symbol
    attr
    matched-symbol
    symbol-tov)
  