Artifact def7ce3494174a943ed90d594b8304a205f88de60d982f3e19c6f871a63110c8:

• Executable file r38/packages/support/mkredpsl.sl — part of check-in [f2fda60abd] at 2011-09-02 18:13:33 on branch master — Some historical releases purely for archival purposes

  git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/trunk/historical@1375 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 1106) [annotate] [blame] [check-ins using] [more...]

% Build checkpointed version of REDUCE.

(setq !*usermode nil)

(setq !*verboseload t)

(setq !*argnochk t)             % Check argument count.

(setq prolog_file 'pslprolo)

(setq rend_file 'pslrend)

(cond ((filep "$reduce/lisp/psl/$MACHINE/psl/symget.b")
       (dskin "$reduce/packages/support/symget.dat")))

(cond ((filep "$reduce/lisp/psl/$MACHINE/psl/addr2id.b")
       (load addr2id)))         % For debugging purposes.

(cond ((filep "$reduce/lisp/psl/$MACHINE/psl/pipes.b")
       (load pipes)))           % Unix pipes.

(load zbig)                     % PSL bignums.

(errorset '(load compat) nil nil)
				% Load PSL-based functions if there.
(load module)                   % Contains definition of load-package.

(load pslprolo)                 % PSL specific code.

% (load patches)

(dskin "$reduce/packages/support/mkred2.sl")

% (load init-file)              % So that .reducerc possible.
				% Now defined in pslrend.red.
(setq !*loadversion t)          % Load entry module during BEGIN.

(setq !*verboseload nil)        % Inhibit loading messages.