Comment 6 for bug 1289779

More closely related to the original bordeaux-threads problem is:

(defparameter *foo* 99)
(declaim (inline foo))
(defun foo () *foo*)

(defun x ()
  (sb-int:named-lambda foo () :bar))

(defun foo2 ()
  (let ((z (foo)))
    z))

(foo2) ;=> :BAR