anchor.diff:  			:ignore-info nil
   			:dynamic-extent-p nil))
   	       nil))
  -	  ((typep entry 'macro-entry)
  +	  ((macro-entry-p entry)
   	   (make-instance 'macro-info
   			  :name (name entry)
   			  :definition (definition entry)))
  
positive.code: 		 (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)
  				'global-function-location-info
  				'lexical-function-location-info)
  			    :location (location entry)
  
negative.code: 
  (defun find-dynamic-extent-info (entry env)
    (loop for e in (append env (proclamations *global-environment*))
  	when (and (dynamic-extent-declaration-entry-p e)
  		  (eq (base-entry e) entry))
  	  return t))
  
  