anchor.diff:  
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;;;
  +;;; 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)
     ())
   
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
positive.code: 
  (defclass function-entry
      (base-entry named-entry function-space location-entry)
    ())
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  
negative.code: 		 (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-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))))))
  
  