| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061 |
- % Build a PSL REDUCE "in core" without the use of fasl files.
- (setq modules!* '(prolog rlisp rend arith alg1 rend alg2 % entry
- matr hephys)) % util int solve ezgcd factor rcref
- % rsltnt bfloat))
- % The following three assignments are PSL dependent.
- (setq *fastcar t)
- (setq *usermode nil)
- (setq *verboseload t)
- (load compiler)
- (setq !*int nil) % prevents input buffer being saved
- (setq !*msg nil)
- (setq oldchan!* in!*)
- (setq !*comp nil)
- (flag '(eqcar) 'lose)
- (dskin "symget.dat") % For fast plist access.
- (dskin "boot.sl")
- % Note that the call of "rds" at the end of the boot file seems to be
- % needed to make the system continue reading this input file after later
- % exits from calls of rds.
- (setq !*comp t)
- (setq *argnochk t)
- (begin2)
- rds open("prolog.red",'input);
- (begin2)
- rds open("rlisp.red",'input);
- (begin2)
- rds open("rend.red",'input);
- (begin2)
- put('!~imports,'stat,'rlis);
- for each x in cdddr modules!* do
- infile concat(string!-downcase x,".red");
- end;
- (load nbig)
- (load init!-file)
- (setq !*comp nil)
- (setq !*verboseload nil)
- (initreduce)
|
