anchor.diff:            syntax-function-name-attribute
             syntax-variable-attribute
             syntax-type-attribute
  -          syntax-builtin-attribute))
  +          syntax-builtin-attribute
  +	  *attribute-destroy-%internal-value*))
   
   (defvar *attributes* '())
   
  
positive.code: 
  (defun clear-all-attribute-cache ()
    (dolist (attribute *attributes*)
      (setf (get attribute '%attribute-value) nil)))
  
  (defun display-light-p ()
  
negative.code: 
  (define-attribute syntax-builtin-attribute
    (t :foreground "#D030F0"))
  
  