See SYS:EXAMPLES;FORM-DUMPING,

(SETQ A (MAKE-ARRAY-FOR-DUMPING-EXAMPLE 100))

(DUMP-FORMS-TO-ARRAY A '((print "what a hack")))

Then this will crash the machine: (FASLOAD-FROM-ARRAY A)