anchor.diff:          (:group :case-insensitive-p
            (:register (:sequence "define-" ,(ppcre:parse-string "\\S*"))))
           (:alternation (:greedy-repetition 1 nil :whitespace-char-class) :end-anchor)
  -        (:register ,(ppcre:parse-string "[^() \\t]+")))
  +        (:register symbol))
         :captures (vector nil
                           (make-tm-name 'syntax-keyword-attribute)
                           (make-tm-name 'syntax-function-name-attribute))))
  
positive.code:      (make-tm-match
        `(:sequence
          symbol-boundary-begin
          ,(ppcre:parse-string ":[^()\" \\t]+")
          symbol-boundary-end)
        :name 'syntax-constant-attribute))
      (add-tm-pattern
  
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))))
  