anchor.diff:  
   (defclass function-entry
       (base-entry named-entry function-space location-entry)
  -  ())
  +  (;; The AST is present if the function was declared INLINE when it
  +   ;; was defined.  Otherwise, the value of this slot is NIL.
  +   (%ast :initform nil :initarg :ast :accessor ast)
  +   ;; When the AST i present (i.e., non-NIL), this slot is valid and
  +   ;; contains a list of LEXICAL-ASTs, one for each required
  +   ;; parameter.
  +   (%parameters :initform nil :initarg :parameters :accessor parameters)
  +   (%lambda-list :initform :none :initarg :lambda-list :accessor lambda-list)))
   
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;;;
  
positive.code: 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  ;;; Class GLOBAL-LOCATION-INFO.
  
  (defclass global-location-info (location-info)
    ())
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
negative.code: (defclass location-info (info)
    ((%location :initarg :location :reader location)
     (%type :initarg :type :reader type)
     (%ignore-info :initarg :ignore-info :reader ignore-info)
     (%dynamic-extent-p :initarg :dynamic-extent-p :reader dynamic-extent-p)))
  
  (defclass function-info-mixin ()
    ((%inline-info :initarg :inline-info :reader inline-info)
     (%lambda-list :initarg :lambda-list :reader lambda-list)
     (%ast :initarg :ast :reader ast)))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  ;;; Class SPECIAL-LOCATION-INFO.
  