anchor.diff:            (remove (syntax-match-end-symbol skw)
                     *syntax-symbol-tov-list*
                     :key #'car)))
  -  (when (syntax-match-attr skw)
  -    (line-put-attribute line start end (get-attr (syntax-match-attr skw))))
  +  (when (syntax-attr skw)
  +    (line-put-attribute line start end (get-attr (syntax-attr skw))))
     t)
   
   (defun syntax-position-word-end (str start)
  
positive.code:     :reader syntax-region-end
      :type syntax-test)))
  
  (defstruct syntax-match
    test
    test-symbol
    end-symbol
    attr
    matched-symbol
    symbol-tov)
  
  (defstruct (syntax-table (:constructor %make-syntax-table))
    (space-chars '(#\space #\tab #\newline))
  
negative.code:                 `(defun ,name ,*syntax-add-keyword-lambda-list*
                     (setf (syntax-table-elements syntax-table)
                           (,add-f (syntax-table-elements syntax-table)
                                   (make-instance 'syntax-match
                                                  :test test
                                                  :test-symbol test-symbol
                                                  :end-symbol end-symbol
                                                  :attr attr
                                                  :matched-symbol matched-symbol
                                                  :symbol-tov symbol-tov))))))
    (def syntax-add-keyword %syntax-append)
    (def syntax-add-keyword-pre %syntax-push))
  
  