Comment 3 for bug 596519

For your immediate needs, you can try:

(declaim (inline foo))
(defun foo (x) (1+ x))

(let ((form `(function ,(function-lambda-expression #'foo))))
  (funcall (eval form) 41)) => 42

That is, for inlined functions F-L-E will return a form you can combine with FUNCTION to produce a form that will evaluate to a function.