anchor.diff:        (find-if (lambda (entry)
   		 (eq (name entry) name))
   ;;		 (and (eq (name entry) name)
  -;;		      (not (eq (car (storage (location entry))) +unbound+))))
  +;;		      (not (eq (car (storage (location entry))) +funbound+))))
   	       (functions environment))))
   
   (defun (setf compiler-macro-function) (new-function name &optional environment)
  
positive.code: ;;;
  ;;;  * Proclaiming FTYPE, INLINE, NOTINLINE or DYNAMIC-EXTENT with
  ;;;    FUNCTION using the name.  Again, A LOCATION for the entry is
  ;;;    created, but the storage cell will be set +unbound+.  The
  ;;;    appropriate auxiliary entry is created and will refer to the
  ;;;    base entry.
  ;;;
  ;;;  * When the compiler sees a compound form with the CAR containing
  ;;;    a symbol that is not associated with an entry in the FUNCTION
  ;;;    namespace.  In this case, a LOCATION for the entry is created
  ;;;    and the storage cell of the entry is initialized to +unbound+.
  ;;;    A warning is also signaled, indicating that the function is
  ;;;    undefined.
  ;;;
  
negative.code: 	      ;; In this case, there can not also be a special
  	      ;; operator entry for the same name.
  	      (let ((value (car (storage (location function-entry)))))
  		(if (eq value  +funbound+)
  		    (error 'undefined-function :name function-name)
  		    value))
  	      ;; If we did not find a global function entry, see if
  