anchor.diff:  (defclass global-macro-info ()
     ((%name :initarg :name :reader name)
      (%expander :initarg :expander :reader expander)
  -   (%compiler-macro :initarg :compiler-macro :reader compiler-macro)))
  +   (%compiler-macro :initform nil
  +		    :initarg :compiler-macro
  +		    :reader compiler-macro)))
   
   (defclass special-operator-info ()
     ((%name :initarg :name :reader name)))
  
positive.code: (defclass lexical-variable-info ()
    ((%name :initarg :name :reader name)
     (%identity :initarg identity :reader identity)
     (%type :initarg :type :reader type)
     (%ignore :initarg :ignore :reader ignore)
     (%dynamic-extent :initarg :dynamic-extent :reader dynamic-extent)))
  
  (defclass special-variable-info ()
    ((%name :initarg :name :reader name)
     (%type :initarg :type :reader type)
     (%ignore :initarg :ignore :reader ignore)))
  
  (defclass constant-variable-info ()
    ((%name :initarg :name :reader name)
  
negative.code: 
  (defclass symbol-macro-info ()
    ((%name :initarg :name :reader name)  
     (%type :initform t :initarg :type :reader type)
     (%expansion :initarg :expansion :reader expansion)))
  
  (defgeneric function-info (environment function-name))
  