mirror of
https://github.com/PDP-10/its.git
synced 2026-03-20 00:27:45 +00:00
16 lines
531 B
Common Lisp
16 lines
531 B
Common Lisp
;;; -*- 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.
|