Subject: bug#4251: Another failure case..

From: Aemon Cannon <[email-masked]>
Date: Tue, 25 Aug 2009 10:24:18 -0400

The following fails with the same error:
;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defmacro many-forms ()
  (let ((body '()))
    (dotimes (i 20000)
      (setq body (cons '(message "more") body)))
    `(progn ,@body)))

(many-forms)

(if (eq 1 a)
    (message "dude")
  (message "else"))

;;;;;;;;;;;;;;;;;;;;;;;