Artifact 7372242cbafc36abbbfcb9afe615185b20674c649e8f8121b3b1b892acde2e99:

• Executable file r38/packages/rlisp/rlisp.red — 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: 760) [annotate] [blame] [check-ins using] [more...]

% module rlisp;  % Header module for rlisp package.

% Author: Anthony C. Hearn.

global '(date!* patch!-date!* version!*);

create!-package('(rlisp module newtok rsupport slfns superv tok xread
                  lpri parser block form proc forstat loops statmisc
		  smacro io infix switch where list array inter),
                 nil);

flag('(rlisp),'core!_package);

if patch!-date!* then
    date!* := compress('!" . append(explode2 "15-Apr-2004, patched to ",
				nconc(explode2 patch!-date!*,list '!")))
 else date!* := "15-Apr-2004";

if null version!* then version!* := "REDUCE 3.8";

% Hook to Rlisp88.

put('rlisp88,'simpfg,'((t (load!-package 'rlisp88) (rlisp88!_on))));

flag('(rlisp88),'switch);

% endmodule;

end;