anchor.diff:     :space-chars '(#\space #\tab #\newline)
      :symbol-chars '(#\_)
      :paren-alist '((#\( . #\))
  -                  (#\[ . #\])
                     (#\{ . #\}))
      :string-quote-chars '(#\" #\')
      :line-comment-preceding-char #\-
  
positive.code:   (syntax-add-region *lua-syntax-table*
                       (make-syntax-test str1)
                       (make-syntax-test str2)
                       :attr :comment-attr))
  
  (defun lua-definition-line-p ()
    (looking-at "^(function|local)\\s"))
  
negative.code:   (syntax-add-region *lua-syntax-table*
                       (make-syntax-test str1)
                       (make-syntax-test str2)
                       :attr :string-attr
                       :tag :long-string))
  
  (loop
    :for n :from 0 :to 10
  