anchor.diff:  
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;;;
  +;;; Class INLINE-OR-NOTINLINE-DECLARATION-ENTRY.
  +;;;
  +;;; This class is not meant to be directly instantiated.  It just
  +;;; serves as a base class for the two classes
  +;;; INLINE-DECLARATION-ENTRY and NOTINLINE-DECLARATION-ENTRY. 
  +
  +(defclass inline-or-notinline-declaration-entry (auxiliary-entry)
  +  ())
  +
  +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  +;;;
   ;;; Class INLINE-DECLARATION-ENTRY.
   
   (defclass inline-declaration-entry (inline-or-notinline-declaration-entry)
  
positive.code: ;;;
  ;;; Class IGNORABLE-DECLARATION-ENTRY.
  
  (defclass ignorable-declaration-entry (location-declaration-entry)
    ())
  
  (defun make-ignorable-declaration-entry (location-entry)
    (make-instance 'ignorable-declaration-entry
  		 :location (location location-entry)))
  
  (defclass autonomous-declaration-entry (declaration-entry)
    ())
  
  
negative.code: 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  ;;; Locations. 
  ;;;
  ;;; Locations are the values of slots of entries representing places
  ;;; that need to be accessed at runtime.  This is the case for
  ;;; variables and functions.  A location can be a global location, a
  ;;; lexical location, or a special location.
  
  (defclass location ()
    ((%name :initarg :name :reader name)))
  
  ;;; A global location is a location that has global storage associated
  ;;; with it, and that storage is allocated directly in the global
  ;;; environment.  This is the case for globally defined functions.
  (defclass global-location (location)
    ((%storage :initform (list +unbound+) :reader storage)))
  
  (defun make-global-location (name)
    (make-instance 'global-location :name name))
  
  ;;; Like a global location, a special location also has storage
  ;;; associated with it, but it serves a somewhat different purpose.
  ;;; It is used only when an attempt to find a special binding in the
  ;;; dynamic environment fails.  
  (defclass special-location (location)
    ((%storage :initform (list +unbound+) :reader storage)))
  
  (defun make-special-location (name)
    (make-instance 'special-location :name name))
  
  ;;; A lexical location does not have any storage associated with it.
  ;;; The storage for a lexical location is determined by the compiler,
  ;;; and it can sometimes be in a local lexical environment, sometimes
  ;;; on the stack and sometimes in a register.  The name of a lexical
  ;;; location is just used to display it in error messages and for
  ;;; debugging purposes.
  (defclass lexical-location (location)
    ())
  
  (defun make-lexical-location (name)
    (make-instance 'lexical-location :name name))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  ;;; Entries in the package namespace.
   
  (defclass package ()
  