;;; -*- lisp -*-

(comment)  ;Magic allocation comment.

;; This is the load and dump script for HELLO LISP.  Pass the HELLO (DUMP)
;; file name on the LISP command line.

(progn
  (close (prog1 infile (inpush -1)))  ;Close channel for this file.
  (fasload hello fasl)
  (gc)
  (purify 0 0 'bporg)                 ;Purify memory pages.
  (sstatus flush t)                   ;Share pure pages with Maclisp.
  (suspend ":kill " '(ts hello))      ;Write executable image.
  (hello))                            ;Start executing here.