anchor.diff:  				'lexical-location-info)
   			    :location (location entry)
   			    :type type
  -			    :inline-info inline-info
   			    :ignore-info ignore-info
   			    :dynamic-extent-p dynamic-extent-p))))))
   
  
positive.code: 	       (progn (warn "Undefined function: ~a" name)
  		      (setf entry (make-global-function-entry name))
  		      (push entry (functions *global-environment*))
  		      (make-instance 'global-location-info
  			:location (location entry)
  			:type t
  			:inline-info nil
  
negative.code: 			:name name
  			:location (location entry)
  			:type t
  			:ignore-info nil
  			:dynamic-extent-p nil))
  	       nil))
  