Compiler fails to terminate, runs out of memory

[Paul F. Dietz]

(defun f326 (a b)
  (flet ((%f9 ()
           (labels ((%f13 (f13-3 &key (key1 a))
                      (restart-bind nil
                       (if (>= f13-3 0)
                            (return-from %f9 key1)
                            0))))
             (return-from %f9
               (unwind-protect
                    (if (< 864413624925 a)
                        (%f13 b)
                        (round -1 b)
                        )))
             )))
     (%f9)
     (%f9)))

==>

compiler hangs, then quickly exhausts memory

[Stas Boukarev (stassats)]

efe4d492142249a9eba319529d282757e151e987