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