Artifact 3e4fdce09bd518baebf918c3e34f87a5c422c2f771a0033ff76c6b2c05842578:
- Executable file
r36/src/pslprolo.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: 1774) [annotate] [blame] [check-ins using] [more...]
% module pslprolo; % PSL dependent code for REDUCE. % Author: Anthony C. Hearn. % This file defines functions, variables and declarations needed to % make REDUCE and the underlying PSL system compatible, and which need % to be input before the system independent REDUCE source is loaded. % The following line is done this way for bootstrapping. if getd 'create!-package then create!-package('(pslprolo),'(rlisp)); % Code for resolving aliasing name conflicts. fluid '(!*quotenewnam); symbolic procedure define!-alias!-list u; begin scalar x; a: if null u then return nil; x := intern compress append(explode '!~,explode car u); put(car u,'newnam,x); put(x,'oldnam,car u); put(car u,'quotenewnam,x); u := cdr u; go to a end; % PSL doesn't need PRINTPROMPT. remflag('(printprompt),'lose); symbolic procedure printprompt u; nil; flag('(printprompt),'lose); flag('(gcdn),'lose); % Defined in bignum package. % flag('(aconc atsoc copy delasc eqcar geq lastpair leq mkquote neq % prin2t reversip rplacw putc yesp),'lose); flag('(rblock foreach lprim repeat while),'user); % permits redefinition % The following assignment is done this way for bootstrapping. flag('(set),'eval); set('!*quotenewnam,nil); define!-alias!-list '(arrayp do for on off let clear flatten imports indx mkid mkvec vector editf spaces2 prettyprint); set('!*quotenewnam,t); remflag('(set),'eval); % Resolution of non-local variable definitions. % The following PSL variables differ from the Standard LISP Report remprop('!*comp,'vartype); remprop('!*raise,'vartype); % The following are not in the Standard LISP Report, but differ from % usual REDUCE usage. remprop('cursym!*,'vartype); % endmodule; end;