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: 
  (define-attribute syntax-builtin-attribute
    (t :foreground "#D030F0"))
  
negative.code:     :initform nil
      :accessor attribute-%internal-value)))
  
  ;; 22-Dec-17 stacksmith:
  ;; If internal value needs to be deallocated, set this to (lambda (attribute))
  (defparameter *attribute-destroy-%internal-value* nil)
  
  (defun attribute-p (x)
    (typep x 'attribute))
  
  