(declaim (inline foo))
(defun foo ()
  (assoc 'speed (introspect-environment:declaration-information 'optimize)))
(declaim (notinline foo))

CL-USER> (foo)
(SPEED 1)
CL-USER> (locally (declare (optimize speed) (inline foo)) (foo))
(SPEED 1)