Heap exhaustion during compilation of a not that large function

[Paul F. Dietz]

Load the attached file and the heap is exhausted. I have not attempted to minimize this input.

x86-64, "2.3.7.135-a0e1c51c6"

[Stas Boukarev (stassats)]

(defun r ()
  (tagbody
   a
     (flet ((f ()
              (go tag)))
       (f))
   tag
     (let ((m (list 1)))
       (declare (dynamic-extent m))
       (eval m)
       (let ((m (list 2)))
         (declare (dynamic-extent m))
         (eval m)))))

[Stas Boukarev (stassats)]

Forgot (declare (optimize (speed 0) (debug 1))) or (debug 2)