Artifact 18b84ed4253e4962d9b058735048f55c5ede840c125b75738006aa058f278907:

• Executable file r37/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-1999, patched to ",
				nconc(explode2 patch!-date!*,list '!")))
 else date!* := "15-Apr-1999";

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

% Hook to Rlisp88.

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

flag('(rlisp88),'switch);

% endmodule;

end;