(declaim (inline foo)) (defun foo (x) (declare (ignore x)) 99) (defun bar (a) (foo a)) compile-file emits ; Caught STYLE-WARNING: ; The variable X is defined but never used. 1.1.0-dev-svn-14066