anchor.diff:  		 (ignore-info (find-ignore-info entry env))
   		 (dynamic-extent-p (find-dynamic-extent-info entry env)))
   	     (make-instance (if (typep entry 'global-function-entry)
  -				'global-location-info
  -				'lexical-location-info)
  +				'global-function-location-info
  +				'lexical-function-location-info)
   			    :location (location entry)
   			    :type type
   			    :inline-info inline-info
  +			    :ast (ast entry)
  +			    :lambda-list (lambda-list entry)
   			    :ignore-info ignore-info
   			    :dynamic-extent-p dynamic-extent-p))))))
   
  
positive.code: 
  (defclass function-entry
      (base-entry named-entry function-space location-entry)
    ())
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  
negative.code: 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  ;;; Class LEXICAL-FUNCTION-LOCATION-INFO.
  
  (defclass lexical-function-location-info
      (lexical-location-info function-info-mixin)
    ())
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  ;;; Class GLOBAL-LOCATION-INFO.
  
  (defclass global-location-info (location-info)
    ())
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  ;;; Class GLOBAL-FUNCTION-LOCATION-INFO.
  
  (defclass global-function-location-info
      (global-location-info function-info-mixin)
    ())
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  