1% Put the current directory at the end for automated scripts to protect
2% against name collisions on 14 character filename machines.
3(setq loaddirectories* '("$bl/" "$bnkl/" ""))
4(on verboseload)
5(off usermode)
6
7%% For machines that require the carcdr.sl fix for car/cdr of NIL, make sure
8%% we turn on fastcar to ensure optimized code. Since PSL was written with
9%% the assumption that car/car of NIL was illegal, it is not necessary
10%% to generate code to test for this, slowing down all car/cdr operations
11%% in the process. For user code though, it defaults to off for safety.
12(on fastcar)
13(setq *syslisp t)
14%(on pcmac)
15(setq pfasl (concat "$pnkl/" (getenv "srcn"))))
16(setq plisp (concat (getenv "srcd")
17		    (concat "/" (concat (getenv "srcn") ".sl"))))
18(faslout pfasl)
19(dskin plisp)
20(faslend)
21(exitlisp)
22