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;