anchor.diff:  (defun find-inline-info (entry env)
     (loop for e in (append env (proclamations *global-environment*))
   	do (when (and (typep e 'inline-or-notinline-declaration-entry)
  -		      (eq (location e) entry))
  +		      (eq (base-entry e) entry))
   	     (return (if (typep e 'inline-declaration-entry)
   			 :inline
   			 :notinline)))))
  
positive.code: (defun find-ignore-info (entry env)
    (cond ((loop for e in (append env (proclamations *global-environment*))
  	       when (and (typep e 'ignore-declaration-entry)
  			 (eq (location e) entry))
  		 return t)
  	 :ignore)
  	((loop for e in (append env (proclamations *global-environment*))
  	       when (and (typep e 'ignorable-declaration-entry)
  			 (eq (location e) entry))
  		 return t)
  	 :ignorable)
  	(t nil)))
  
negative.code: (defclass inline-declaration-entry (inline-or-notinline-declaration-entry)
    ())
  
  (defun make-inline-declaration-entry (base-entry)
    (make-instance 'inline-declaration-entry
  		 :base-entry base-entry))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  