Comment 1 for bug 1035721

Reduced test-case:
(declaim (inline call))
(defun call (function)
  (lambda (x)
    (funcall function x)))

(declaim (inline identity-))
(defun identity- (x)
  x)

(defun test ()
  (list
   (call #'identity-)
   (lambda (x)
        (identity- x))))