anchor.diff:  (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)))
  +   (%type :initform t :initarg :type :reader type)
  +   (%ignore :initform nil :initarg :ignore :reader ignore)
  +   (%dynamic-extent :initform nil :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)))
  +   (%type :initform t :initarg :type :reader type)
  +   (%ignore :initarg nil :initarg :ignore :reader ignore)))
   
   (defclass constant-variable-info ()
     ((%name :initarg :name :reader name)
  
positive.code: (defclass global-macro-info ()
    ((%name :initarg :name :reader name)
     (%expander :initarg :expander :reader expander)
     (%compiler-macro :initarg :compiler-macro :reader compiler-macro)))
  
  (defclass special-operator-info ()
    ((%name :initarg :name :reader name)))
  
negative.code: (defclass local-function-info ()
    ((%name :initarg :name :reader name)
     (%identity :initarg identity :reader identity)
     (%type :initform t :initarg :type :reader type)
     (%inline :initform nil :initarg :inline :reader inline)
     (%ignore :initform nil :initarg :ignore :reader ignore)
     (%dynamic-extent :initform nil
  		    :initarg :dynamic-extent
  		    :reader dynamic-extent)))
    
  (defclass global-function-info ()
    ((%name :initarg :name :reader name)
     (%type :initform t :initarg :type :reader type)
     (%inline :initform nil :initarg :inline :reader inline)
     (%compiler-macro :initform nil :initarg :compiler-macro :reader compiler-macro)
     (%ignore :initform nil :initarg :ignore :reader ignore)
     (%dynamic-extent :initform nil
  		    :initarg :dynamic-extent
  		    :reader dynamic-extent)))
    
  (defclass local-macro-info ()
    ((%name :initarg :name :reader name)
  