1;; This allocates several large objects directly in the heap via the 2;; toplevel entry point, for a total of about 10MB on 64-bit machines. 3;; This guards against regressions in heap reallocation (#1221). 4 5(define-syntax generate-literals 6 (ir-macro-transformer 7 (lambda (i r c) 8 (let lp ((i 0) 9 (exprs '())) 10 (if (= i 1000) 11 (cons 'begin exprs) 12 (lp (add1 i) 13 (cons `(define ,(gensym) 14 (quote ,(make-vector 1000))) exprs))))))) 15 16(generate-literals) 17