Comment 3 for bug 1659964

Simplified
(defun foo ()
  (declare (optimize (speed 3)))
  (flet ((x () (cons 1 2)))
    (declare (notinline x))
    (let ((x (x)))
      (declare (dynamic-extent x))
      (print x)))
  (bar)
  (sb-ext:gc :full t))