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