anchor.diff:                  `(defun ,name ,*syntax-add-keyword-lambda-list*
                      (setf (syntax-table-elements syntax-table)
                            (,add-f (syntax-table-elements syntax-table)
  -                                 (make-syntax-match
  -                                  :test test
  -                                  :test-symbol test-symbol
  -                                  :end-symbol end-symbol
  -                                  :attr attr
  -                                  :matched-symbol matched-symbol
  -                                  :symbol-tov symbol-tov))))))
  +                                 (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))
   
  
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:           (remove (syntax-match-end-symbol skw)
                    *syntax-symbol-tov-list*
                    :key #'car)))
    (when (syntax-attr skw)
      (line-put-attribute line start end (get-attr (syntax-attr skw))))
    t)
  
  (defun syntax-position-word-end (str start)
  