anchor.diff:          "("
           ,(wrap-symbol-names
             "deftype" "defpackage" "defstruct")
  -        (:register ,(ppcre:parse-string "[^() \\t]+")))
  +        (:register symbol))
         :captures (vector nil
                           (make-tm-name 'syntax-keyword-attribute)
                           (make-tm-name 'syntax-type-attribute))))
  
positive.code:     maybe-package-prefix
      (:register
       (:group :case-insensitive-p
        (:alternation
         ,@(apply #'word-length-sort names))))
      (:alternation (:greedy-repetition 1 nil :whitespace-char-class) :end-anchor #\( #\))))
  
  (defun make-tmlanguage-lisp ()
  
negative.code:         "("
          ,(wrap-symbol-names
            "defvar" "defparameter" "defconstant")
          (:register symbol))
        :captures (vector nil
                          (make-tm-name 'syntax-keyword-attribute)
                          (make-tm-name 'syntax-variable-attribute))))
  