anchor.diff:  
   (macrolet ((def (name add-f)
                   `(defun ,name ,*syntax-add-keyword-lambda-list*
  -                   (setf (syntax-table-keywords syntax-table)
  -                         (,add-f (syntax-table-keywords syntax-table)
  +                   (setf (syntax-table-elements syntax-table)
  +                         (,add-f (syntax-table-elements syntax-table)
                                    (make-syntax-keyword
                                     :test (if regex-p
                                               (ppcre:create-scanner test)
  
positive.code:   line-comment-following-char
    block-comment-preceding-char
    block-comment-following-char
    keywords)
  
  (defun make-syntax-table (&rest args)
    (let ((syntax-table (apply '%make-syntax-table args)))
  
negative.code: 
  (defun syntax-scan-word (line start)
    (let ((str (line-str line)))
      (dolist (skw (syntax-table-elements (current-syntax)))
        (when (or (not (syntax-keyword-test-symbol skw))
                  (find (syntax-keyword-test-symbol skw)
                        *syntax-symbol-tov-list*
  