anchor.diff:  		     :test #'equal)))
       (typecase entry
         (global-function-entry
  -       (not (eq (car (storage (location entry))) +unbound+)))
  +       (not (eq (car (storage (location entry))) +funbound+)))
         (global-macro-entry
          t)
         (special-operator-entry
  
positive.code:       (find-if (lambda (entry)
  		 (eq (name entry) name))
  ;;		 (and (eq (name entry) name)
  ;;		      (not (eq (car (storage (location entry))) +unbound+))))
  	       (functions environment))))
  
  (defun (setf compiler-macro-function) (new-function name &optional environment)
  
negative.code: ;;; the same name, then that global macro entry becomes the base entry
  ;;; for the compiler macro entry.  If not, and there is a global
  ;;; function entry with the same name, and that global function entry
  ;;; has a location where the storage cell is not +funbound+, then that
  ;;; global function entry becomes the base entry for the compiler
  ;;; macro entry.
  ;;; 
  