anchor.diff:  	   (let ((type (find-type entry env))
   		 (ignore-info (find-ignore-info entry env))
   		 (dynamic-extent-p (find-dynamic-extent-info entry env)))
  -	     (make-instance (if (typep entry 'special-variable-entry)
  +	     (make-instance (if (special-variable-entry-p entry)
   				'special-location-info
   				'lexical-location-info)
   			    :location (location 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: 			:ignore-info nil
  			:dynamic-extent-p nil))
  	       nil))
  	  ((macro-entry-p entry)
  	   (make-instance 'macro-info
  			  :name (name entry)
  			  :definition (definition entry)))
  