1(setq loaddirectories* '("" "$pl/" "$pnkl/" "$pll/"))
2(on verboseload)
3(load pslcomp init-file)
4(load strings common)
5(let ((*usermode nil)(*redefmsg nil))
6 (copyd 'main 'original-main))
7(savesystem "PSL 4.2 Compiler" "$psys/pslcomp"
8 '((read-init-file "pslcomp")))
9(exitlisp)
10