anchor.diff:  		 (inline-info (find-inline-info entry env))
   		 (ignore-info (find-ignore-info entry env))
   		 (dynamic-extent-p (find-dynamic-extent-info entry env)))
  -	     (make-instance (if (typep entry 'global-function-entry)
  +	     (make-instance (if (global-function-entry-p entry)
   				'global-function-location-info
   				'lexical-function-location-info)
   			    :location (location entry)
  
positive.code: 
  (defun find-dynamic-extent-info (entry env)
    (loop for e in (append env (proclamations *global-environment*))
  	when (and (typep e 'dynamic-extent-declaration-entry)
  		  (eq (base-entry e) entry))
  	  return t))
  
  
negative.code: 			:ignore-info nil
  			:dynamic-extent-p nil))
  	       nil))
  	  ((constant-variable-entry-p entry)
  	   (make-instance 'constant-variable-info
  			  :name (name entry)
  			  :definition (definition entry)))
  	  ((symbol-macro-entry-p entry)
  	   (make-instance 'symbol-macro-info
  			  :name (name entry)
  			  :definition (definition entry)
  