anchor.diff:  (defun find-dynamic-extent-info (entry env)
     (loop for e in (append env (proclamations *global-environment*))
   	when (and (typep e 'dynamic-extent-declaration-entry)
  -		  (eq (location e) entry))
  +		  (eq (base-entry e) entry))
   	  return t))
   
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
positive.code: 	   (cddr declaration-specifier)))
      (special
       (mapc #'proclaim-special
  	   (cdr declaration-specifier)))
      ;; FIXME: handle more proclamations
      ))
  
negative.code: (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 (base-entry e) entry))
  	     (return (if (typep e 'inline-declaration-entry)
  			 :inline
  			 :notinline)))))
  