anchor.diff:  			  :type (find-type entry env)))
   	  (t
   	   (let ((type (find-type entry env))
  -		 (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 'special-variable-entry)
  
positive.code: 				'lexical-location-info)
  			    :location (location entry)
  			    :type type
  			    :inline-info inline-info
  			    :ignore-info ignore-info
  			    :dynamic-extent-p dynamic-extent-p))))))
  
  
negative.code: 	       (progn (warn "Undefined function: ~a" name)
  		      (setf entry (make-global-function-entry name))
  		      (push entry (functions *global-environment*))
  		      (make-instance 'global-function-location-info
  			:location (location entry)
  			:type t
  			:inline-info nil
  