anchor.diff:  	   (cddr declaration-specifier)))
       (special
        (mapc #'proclaim-special
  +	   (cdr declaration-specifier)))
  +    (inline
  +     (mapc #'proclaim-inline
  +	   (cdr declaration-specifier)))
  +    (notinline
  +     (mapc #'proclaim-notinline
   	   (cdr declaration-specifier)))
       ;; FIXME: handle more proclamations
       ))
  
positive.code: (defclass inline-declaration-entry (inline-or-notinline-declaration-entry)
    ())
  
  (defun make-inline-declaration-entry (location-entry)
    (make-instance 'inline-declaration-entry
  		 :location (location location-entry)))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  
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)))))
  