1 & **************************************************************
2 & * *
3 & * Copyright, C Massachusetts Institute of Technology, 1982 *
4 & * *
5 & **************************************************************
6 & This ec creates the saved environment for the lisp assember program lap.
7 & It takes one argument, which is the pathname of the directory which contains
8 & lap_, which it loads. This argument is optional. The saved environment is
9 & lap.sv.lisp, created in the working directory.
10 &
11 &command_line off
12 discard_output -osw error_output "tmr lap_"
13 &input_line off
14 &attach
15 lisp lisp_nostartup
16 progn
17 &if exists argument &r1
18 &then load "&q1>lap_"
19 &else load "lap_"
20 *rset nil
21 sstatus uuolinks t
22 gctwa gc
23 save lap
24 &detach
25 &quit