anchor.diff:                        (make-syntax-test "&[^() \\t]+"
                                           :word-p t)
                         :attribute *syntax-constant-attribute*)
  +
  +    (syntax-add-match table
  +                      (make-syntax-test "(?:[^:*]*:)?\\*.*?\\*(?=(?:[() \\t]|$))"
  +                                        :word-p t)
  +                      :attribute *syntax-variable-attribute*)
   
       (syntax-add-match
        table
  
positive.code:                          (:alternation
                            ,@(word-length-sort
                               "defun" "defclass" "defgeneric" "defsetf" "defmacro" "deftype"
                               "defmethod" "defpackage" "defstruct" "defvar" "defparameter" "defconstant")
                            (:sequence "define-" (:greedy-repetition 0 nil
                                                  (:inverted-char-class #\space #\tab #\( #\))))))
                         :word-p t)
  
negative.code:                       :attribute *syntax-keyword-attribute*)
  
      (syntax-add-match table
                        (make-syntax-test ":[^() \\t]+"
                                          :word-p t)
                        :attribute *syntax-constant-attribute*)
  