anchor.diff:  		 :name name
   		 :location (make-instance 'global-location)))
   
  +(defun add-global-function-entry (env name)
  +  (add-to-environment env (make-global-function-entry name)))
  +
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;;;
   ;;; Class LOCAL-FUNCTION-ENTRY.
  
positive.code: 		 :name name
  		 :location (make-instance 'lexical-location)))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  ;;; Class MACRO-ENTRY.
  
negative.code: 
  (add-to-global-environment
   (make-global-function-entry 'car))
  
  (add-to-global-environment
   (make-global-function-entry 'error))
  
  (add-to-global-environment
   (make-global-function-entry '(setf fdefinition)))
  