~trn/reduce-algebra

f71d68b580c1c530fc556e73adfd5ea65c8aca1d — Jeffrey H. Johnson a month ago 1037ed4 + 3fb6d20
Merge branch 'svn/trunk'
609 files changed, 609 insertions(+), 609 deletions(-)

M packages/dipoly/a2dip.red
M packages/dipoly/bcoeff.red
M packages/dipoly/condense.red
M packages/dipoly/dip2a.red
M packages/dipoly/dipoly.red
M packages/dipoly/dipoly1.red
M packages/dipoly/dipprint.red
M packages/dipoly/dipvars.red
M packages/dipoly/expvec.red
M packages/dipoly/torder.red
M packages/dipoly/vdp2dip.red
M packages/dipoly/vdp2dip1.red
M packages/dipoly/vdp3dip.red
M packages/dipoly/vdpcom.red
M packages/eds/contact.red
M packages/eds/disjoin.red
M packages/eds/eds.red
M packages/eds/edsaux.red
M packages/eds/edscfrm.red
M packages/eds/edsequiv.red
M packages/eds/edseval.red
M packages/eds/edsexptl.red
M packages/eds/edsnorml.red
M packages/eds/edspatch.red
M packages/eds/edspde.red
M packages/eds/edssolve.red
M packages/eds/edsuser.red
M packages/eds/element.red
M packages/eds/invol.red
M packages/eds/prolong.red
M packages/eds/pullback.red
M packages/eds/restrict.red
M packages/eds/systems.red
M packages/eds/tableaux.red
M packages/eds/transfrm.red
M packages/excalc/degform.red
M packages/excalc/exaux.red
M packages/excalc/excalc.red
M packages/excalc/exdf.red
M packages/excalc/exintro.red
M packages/excalc/exlists.red
M packages/excalc/forder.red
M packages/excalc/frames.red
M packages/excalc/hodge.red
M packages/excalc/idexf.red
M packages/excalc/indices.red
M packages/excalc/indsymm.red
M packages/excalc/indxprin.red
M packages/excalc/innerprd.red
M packages/excalc/killing_vector.red
M packages/excalc/liedf.red
M packages/excalc/lievalfm.red
M packages/excalc/partdf.red
M packages/excalc/partitsf.red
M packages/excalc/vardf.red
M packages/excalc/vecanlys.red
M packages/excalc/wedge.red
M packages/factor/alphas.red
M packages/factor/bigmodp.red
M packages/factor/coeffts.red
M packages/factor/degsets.red
M packages/factor/ezgcd.red
M packages/factor/ezgcdf.red
M packages/factor/facmisc.red
M packages/factor/facmod.red
M packages/factor/facprim.red
M packages/factor/facstr.red
M packages/factor/factor.red
M packages/factor/facuni.red
M packages/factor/imageset.red
M packages/factor/interfac.red
M packages/factor/linmodp.red
M packages/factor/mhensfns.red
M packages/factor/modpoly.red
M packages/factor/multihen.red
M packages/factor/pfacmult.red
M packages/factor/pfactor.red
M packages/factor/unihens.red
M packages/factor/vecpoly.red
M packages/fide/approx.red
M packages/fide/charpol.red
M packages/fide/discret.red
M packages/fide/expres.red
M packages/fide/fide.red
M packages/fide/fide1.red
M packages/fide/hurwp.red
M packages/fide/iimet.red
M packages/fide/linband.red
M packages/gentran/gentran.red
M packages/gentran/goutput.red
M packages/gentran/gparser.red
M packages/gentran/intrfc.red
M packages/gentran/lspc.red
M packages/gentran/lspfor.red
M packages/gentran/lsppasc.red
M packages/gentran/lsprat.red
M packages/gentran/pre.red
M packages/gentran/redlsp.red
M packages/gentran/segmnt.red
M packages/gentran/templt.red
M packages/gentran/utils.red
M packages/geometry/geoprover.red
M packages/geometry/old-geometry.red
M packages/groebner/buchbg.red
M packages/groebner/glexconv.red
M packages/groebner/greduo.red
M packages/groebner/grinter2.red
M packages/groebner/grinterf.red
M packages/groebner/groebcri.red
M packages/groebner/groebfac.red
M packages/groebner/groebidq.red
M packages/groebner/groebman.red
M packages/groebner/groebmes.red
M packages/groebner/groebner.red
M packages/groebner/groebnr2.red
M packages/groebner/groebopt.red
M packages/groebner/groebres.red
M packages/groebner/groebrst.red
M packages/groebner/groebsea.red
M packages/groebner/groebsor.red
M packages/groebner/groebspa.red
M packages/groebner/groebtra.red
M packages/groebner/groesolv.red
M packages/groebner/groeweak.red
M packages/groebner/groext.red
M packages/groebner/hggroeb.red
M packages/groebner/hilbert2.red
M packages/groebner/hilbertp.red
M packages/groebner/hilberts.red
M packages/groebner/hille.red
M packages/groebner/ideals.red
M packages/groebner/kredelw.red
M packages/groebner/kuechl.red
M packages/groebner/traverso.red
M packages/hephys/cvit.red
M packages/hephys/cvitmap.red
M packages/hephys/evalmaps.red
M packages/hephys/hephys.red
M packages/hephys/intfierz.red
M packages/hephys/map2strn.red
M packages/hephys/noncom2.red
M packages/hephys/physop.red
M packages/hephys/red2cvit.red
M packages/int/contents.red
M packages/int/csolve.red
M packages/int/df2q.red
M packages/int/dint.red
M packages/int/distrib.red
M packages/int/divide.red
M packages/int/driver.red
M packages/int/hacksqrt.red
M packages/int/halfangl.red
M packages/int/ibasics.red
M packages/int/idepend.red
M packages/int/int-table.red
M packages/int/int.red
M packages/int/intfac.red
M packages/int/isolve.red
M packages/int/jpatches.red
M packages/int/makevars.red
M packages/int/ratint.red
M packages/int/reform.red
M packages/int/simpsqrt.red
M packages/int/sqrtf.red
M packages/int/symint.red
M packages/int/tidysqrt.red
M packages/int/trcase.red
M packages/int/trialdiv.red
M packages/int/vect.red
M packages/invbase/invbase.red
M packages/invbase/invbcomp.red
M packages/invbase/invbint.red
M packages/laplace/laplace.red
M packages/lessons/less1.red
M packages/lessons/less2.red
M packages/lessons/less3.red
M packages/lessons/less4.red
M packages/lessons/less5.red
M packages/lessons/less6.red
M packages/lessons/less7.red
M packages/linalg/cholesky.red
M packages/linalg/gramschm.red
M packages/linalg/lamatrix.red
M packages/linalg/linalg.red
M packages/linalg/ludecom.red
M packages/linalg/simplex.red
M packages/linalg/svd.red
M packages/linalg/tadjoint.red
M packages/listvecops/listvecops.red
M packages/mathml/ir2om.red
M packages/mathml/mathml.red
M packages/mathml/mathml_1.red
M packages/mathml/mathmlom.red
M packages/mathml/mml_ir.red
M packages/mathml/mtables.red
M packages/mathml/om2ir.red
M packages/mathml/tools.red
M packages/mathpr/dfprin.red
M packages/mathpr/fortpri.red
M packages/mathpr/mathpr.red
M packages/mathpr/mintro.red
M packages/mathpr/mprint.red
M packages/mathpr/prend.red
M packages/mathpr/ratprin.red
M packages/mathpr/specprin.red
M packages/mathpr/sqprint.red
M packages/mathpr/xprint.red
M packages/matrix/bareiss.red
M packages/matrix/brsltnt_bmap.red
M packages/matrix/cofactor.red
M packages/matrix/det.red
M packages/matrix/extops.red
M packages/matrix/glmat.red
M packages/matrix/matpri.red
M packages/matrix/matpri2.red
M packages/matrix/matproc.red
M packages/matrix/matrix.red
M packages/matrix/matsm.red
M packages/matrix/nestdom.red
M packages/matrix/nullsp.red
M packages/matrix/rank.red
M packages/matrix/resultnt.red
M packages/misc/boolean.red
M packages/misc/cedit.red
M packages/misc/changevr.red
M packages/misc/coeff2.red
M packages/misc/comfac.red
M packages/misc/compact.red
M packages/misc/compactf.red
M packages/misc/dfpart.red
M packages/misc/ftr.red
M packages/misc/lie.red
M packages/misc/lie1234.red
M packages/misc/liendmc1.red
M packages/misc/limits.red
M packages/misc/misc.red
M packages/misc/mv.red
M packages/misc/mvmatch.red
M packages/misc/odeex.red
M packages/misc/pf.red
M packages/misc/randpoly.red
M packages/misc/rcref.red
M packages/misc/reacteqn.red
M packages/misc/reddom.red
M packages/misc/redio.red
M packages/misc/reset.red
M packages/misc/rlfi.red
M packages/misc/sets.red
M packages/mrvlimit/expon.red
M packages/mrvlimit/mrvlimit.red
M packages/ncpoly/ncdip.red
M packages/ncpoly/ncenv.red
M packages/ncpoly/ncfactor.red
M packages/ncpoly/ncgroeb.red
M packages/ncpoly/ncout.red
M packages/ncpoly/ncpoly.red
M packages/normform/froben.red
M packages/normform/jordan.red
M packages/normform/jordsymb.red
M packages/normform/matarg.red
M packages/normform/nestdom.red
M packages/normform/normform.red
M packages/normform/ratjord.red
M packages/normform/smithex.red
M packages/normform/smithex1.red
M packages/numeric/bounds.red
M packages/numeric/chebysh.red
M packages/numeric/gauss.red
M packages/numeric/newton.red
M packages/numeric/numeric.red
M packages/numeric/numeval.red
M packages/numeric/numfit.red
M packages/numeric/numint.red
M packages/numeric/numsolve.red
M packages/numeric/rungeku.red
M packages/numeric/steepstd.red
M packages/occal/assume.red
M packages/occal/occal.red
M packages/occal/ocdispl.red
M packages/occal/ocinterf.red
M packages/occal/ocparse.red
M packages/occal/ocpriprg.red
M packages/occal/ocread.red
M packages/occal/ocstruct.red
M packages/occal/ocvars.red
M packages/occal/oczusatz.red
M packages/occal/regex.red
M packages/occal/signpref.red
M packages/odesolve/odeintfc.red
M packages/odesolve/odelin.red
M packages/odesolve/odenon1.red
M packages/odesolve/odenonn.red
M packages/odesolve/odepatch.red
M packages/odesolve/odesolve.red
M packages/odesolve/odespcfn.red
M packages/odesolve/odetop.red
M packages/orthovec/orthovec.red
M packages/plot/gnuintfc.red
M packages/plot/gnupldrv.red
M packages/plot/gnuplot.red
M packages/plot/parray.red
M packages/plot/plot.red
M packages/plot/plotexp2.red
M packages/plot/plotexp3.red
M packages/plot/plotimp2.red
M packages/plot/plotimp3.red
M packages/plot/plotnum.red
M packages/plot/plotsynt.red
M packages/plot/pltpara.red
M packages/plot/turtle.red
M packages/plot/xvect.red
M packages/pm/pattdefn.red
M packages/pm/pattperm.red
M packages/pm/pm.red
M packages/pm/pmintrfc.red
M packages/pm/pmpatch.red
M packages/pm/pmrules.red
M packages/pm/pmrules2.red
M packages/pm/unify.red
M packages/poly/compopr.red
M packages/poly/conj.red
M packages/poly/cpxrn.red
M packages/poly/decompos.red
M packages/poly/diff.red
M packages/poly/dmode.red
M packages/poly/dmodeop.red
M packages/poly/exptf.red
M packages/poly/facform.red
M packages/poly/gcd.red
M packages/poly/gint.red
M packages/poly/heugcd.red
M packages/poly/homog.red
M packages/poly/horner.red
M packages/poly/interpol.red
M packages/poly/kernel.red
M packages/poly/kronf.red
M packages/poly/mksp.red
M packages/poly/modular.red
M packages/poly/polrep.red
M packages/poly/poly.red
M packages/poly/polydiv.red
M packages/poly/polyop.red
M packages/poly/primfac.red
M packages/poly/quotf.red
M packages/poly/rational.red
M packages/poly/reord.red
M packages/poly/rnelem.red
M packages/poly/specfac.red
M packages/poly/subs2q.red
M packages/poly/subs3q.red
M packages/poly/subs4q.red
M packages/poly/tdconv.red
M packages/qsum/qsum.red
M packages/rataprx/cfutil.red
M packages/rataprx/contfr.red
M packages/rataprx/contfrac.red
M packages/rataprx/decrep.red
M packages/rataprx/pade.red
M packages/rataprx/primitive.red
M packages/rataprx/rataprx.red
M packages/ratint/convert.red
M packages/ratint/ratint.red
M packages/reduce4/block4.red
M packages/reduce4/forall4.red
M packages/reduce4/form4.red
M packages/reduce4/forstat4.red
M packages/reduce4/matrix4.red
M packages/reduce4/package4.red
M packages/reduce4/proc4.red
M packages/reduce4/ranks.red
M packages/reduce4/rankstat.red
M packages/reduce4/reduce4.red
M packages/reduce4/reval4.red
M packages/reduce4/simp4.red
M packages/reduce4/struct4.red
M packages/reduce4/table1.red
M packages/reduce4/table2.red
M packages/reduce4/table3.red
M packages/reduce4/tables.red
M packages/reduce4/tower.red
M packages/residue/residue.red
M packages/rlisp/array.red
M packages/rlisp/block.red
M packages/rlisp/form.red
M packages/rlisp/forstat.red
M packages/rlisp/infix.red
M packages/rlisp/inter.red
M packages/rlisp/io.red
M packages/rlisp/list.red
M packages/rlisp/loops.red
M packages/rlisp/lpri.red
M packages/rlisp/mkset.red
M packages/rlisp/module.red
M packages/rlisp/newtok.red
M packages/rlisp/parser.red
M packages/rlisp/proc.red
M packages/rlisp/rintro-txt.red
M packages/rlisp/rlisp.red
M packages/rlisp/rsupport.red
M packages/rlisp/slfns.red
M packages/rlisp/smacro.red
M packages/rlisp/statmisc.red
M packages/rlisp/superv.red
M packages/rlisp/switch.red
M packages/rlisp/tok.red
M packages/rlisp/vector.red
M packages/rlisp/where.red
M packages/rlisp/xmodule.red
M packages/rlisp/xread.red
M packages/rlisp88/bquote.red
M packages/rlisp88/for88.red
M packages/rlisp88/inspect.red
M packages/rlisp88/loops88.red
M packages/rlisp88/mstruct.red
M packages/rlisp88/records.red
M packages/rlisp88/rlisp88.red
M packages/rlisp88/rvector.red
M packages/roots/allroot.red
M packages/roots/bfdoer.red
M packages/roots/bfdoer2.red
M packages/roots/complxp.red
M packages/roots/multroot.red
M packages/roots/nrstroot.red
M packages/roots/realroot.red
M packages/roots/rootaux.red
M packages/roots/roots.red
M packages/roots/roots2.red
M packages/rprint/fmprint.red
M packages/rprint/pretty.red
M packages/rprint/rprint.red
M packages/rtools/charname.red
M packages/rtools/general.red
M packages/rtools/genmod.red
M packages/rtools/pretty.red
M packages/rtools/random.red
M packages/rtools/rprintf.red
M packages/rtools/rtools.red
M packages/rtools/rtrace.red
M packages/rtools/smallmod.red
M packages/rtools/sort.red
M packages/rtrace/rdebug.red
M packages/rubi_red/rubi_parse.red
M packages/rubi_red/rubi_red.red
M packages/rubi_red/rubi_rules.red
M packages/scope/codad1.red
M packages/scope/codad2.red
M packages/scope/codctl.red
M packages/scope/coddec.red
M packages/scope/coddom.red
M packages/scope/codgen.red
M packages/scope/codhrn.red
M packages/scope/codmat.red
M packages/scope/codopt.red
M packages/scope/codpri.red
M packages/scope/codstr.red
M packages/scope/minlngth.red
M packages/scope/restore.red
M packages/scope/scope.red
M packages/solve/desir.red
M packages/solve/glsolve.red
M packages/solve/ineq.red
M packages/solve/linineq.red
M packages/solve/liqsimp1.red
M packages/solve/liqsimp2.red
M packages/solve/modroots.red
M packages/solve/modsolve.red
M packages/solve/modsqrt.red
M packages/solve/modsr.red
M packages/solve/nonlnr.red
M packages/solve/polineq.red
M packages/solve/ppsoln.red
M packages/solve/quartic.red
M packages/solve/rsolve.red
M packages/solve/solve.red
M packages/solve/solve1.red
M packages/solve/solvealg.red
M packages/solve/solvelnr.red
M packages/solve/solvetab.red
M packages/sparse/sparse.red
M packages/sparse/sparsmat.red
M packages/sparse/spchlsky.red
M packages/sparse/spgrmshm.red
M packages/sparse/splinalg.red
M packages/sparse/spludcmp.red
M packages/sparse/spmateig.red
M packages/sparse/spsvd.red
M packages/spde/spde.red
M packages/specfn/constre.red
M packages/specfn/dilog.red
M packages/specfn/fps.red
M packages/specfn/ghyper.red
M packages/specfn/harmonic.red
M packages/specfn/hgrsolve.red
M packages/specfn/jsymbols.red
M packages/specfn/linrec.red
M packages/specfn/meijerg.red
M packages/specfn/ratalgo.red
M packages/specfn/recsimpl.red
M packages/specfn/sfairy.red
M packages/specfn/sfbdata.red
M packages/specfn/sfbern.red
M packages/specfn/sfbes.red
M packages/specfn/sfbinom.red
M packages/specfn/sfconsts.red
M packages/specfn/sfellip.red
M packages/specfn/sfellipi.red
M packages/specfn/sfgamm.red
M packages/specfn/sfgamma.red
M packages/specfn/sfgen.red
M packages/specfn/sfigamma.red
M packages/specfn/sfint.red
M packages/specfn/sfkummer.red
M packages/specfn/sfother.red
M packages/specfn/sfpolys.red
M packages/specfn/sfpsi.red
M packages/specfn/sfrules.red
M packages/specfn/sfsums.red
M packages/specfn/sftheta.red
M packages/specfn/sfweier.red
M packages/specfn/simpfact.red
M packages/specfn/simplede.red
M packages/specfn/specbess.red
M packages/specfn/specfaux.red
M packages/specfn/specfn.red
M packages/specfn/specfn2.red
M packages/specfn/substexp.red
M packages/sstools/sstools.red
M packages/sum/complx.red
M packages/sum/prod.red
M packages/sum/sum.red
M packages/sum/sum2.red
M packages/sum/zeilberg.red
M packages/support/autopatch.red
M packages/support/build.red
M packages/support/clrend.red
M packages/support/compat.red
M packages/support/csl.red
M packages/support/cslprolo.red
M packages/support/entry.red
M packages/support/fastmath.red
M packages/support/fastmod.red
M packages/support/patches.red
M packages/support/psl.red
M packages/support/pslprolo.red
M packages/support/pslrend.red
M packages/support/remake.red
M packages/support/revision.red
M packages/support/smacros.red
M packages/support/smacros0.red
M packages/support/support.red
M packages/susy2/susy2.red
M packages/symmetry/symatvec.red
M packages/symmetry/symaux.red
M packages/symmetry/symcheck.red
M packages/symmetry/symchrep.red
M packages/symmetry/symdata1.red
M packages/symmetry/symdata2.red
M packages/symmetry/symhandl.red
M packages/symmetry/symmetry.red
M packages/symmetry/sympatch.red
M packages/symmetry/symwork.red
M packages/taylor/taybasic.red
M packages/taylor/tayconv.red
M packages/taylor/taydiff.red
M packages/taylor/tayexpnd.red
M packages/taylor/tayfns.red
M packages/taylor/tayfront.red
M packages/taylor/taygamma.red
M packages/taylor/tayimpl.red
M packages/taylor/tayintrf.red
M packages/taylor/tayintro.red
M packages/taylor/taylor.red
M packages/taylor/taypart.red
M packages/taylor/tayprint.red
M packages/taylor/tayrevrt.red
M packages/taylor/taysimp.red
M packages/taylor/taysubst.red
M packages/taylor/tayutils.red
M packages/tps/tps.red
M packages/tps/tpscomp.red
M packages/tps/tpsconv.red
M packages/tps/tpsdom.red
M packages/tps/tpseval.red
M packages/tps/tpsfns.red
M packages/tps/tpsmisc.red
M packages/tps/tpsrev.red
M packages/tps/tpssum.red
M packages/tri/tri.red
M packages/trigint/trigint.red
M packages/trigsimp/otrgsimp.red
M packages/trigsimp/otrgsmp1.red
M packages/trigsimp/otrgsmp2.red
M packages/trigsimp/trigsimp.red
M packages/trigsimp/trigsmp1.red
M packages/trigsimp/trigsmp2.red
M packages/vas/vas.red
M packages/wu/wu.red
M packages/xcolor/cface.red
M packages/xcolor/xcolor.red
M packages/xideal/xaux.red
M packages/xideal/xcrit.red
M packages/xideal/xexcalc.red
M packages/xideal/xgroeb.red
M packages/xideal/xideal.red
M packages/xideal/xpowers.red
M packages/xideal/xreduct.red
M packages/xideal/xstorage.red
M packages/ztrans/ztrans.red
M packages/ztrans/ztrrules.red
M packages/dipoly/a2dip.red => packages/dipoly/a2dip.red +1 -1
@@ 26,7 26,7 @@ module a2dip;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$
% Repeat of inlines defined in vdp2dip.

inline procedure dipfmon(a,e);

M packages/dipoly/bcoeff.red => packages/dipoly/bcoeff.red +1 -1
@@ 36,7 36,7 @@ module bcoeff;% Computation of base coefficients.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

symbolic procedure bcint2op(a1,a2,op);
 if null dmode!* and

M packages/dipoly/condense.red => packages/dipoly/condense.red +1 -1
@@ 25,7 25,7 @@ module condense;  % unify exponent vectors for lower memory consumption.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

dipevlist!*:={nil};


M packages/dipoly/dip2a.red => packages/dipoly/dip2a.red +1 -1
@@ 23,7 23,7 @@ module dip2a;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% Functions for converting distributive forms into prefix forms


M packages/dipoly/dipoly.red => packages/dipoly/dipoly.red +1 -1
@@ 46,7 46,7 @@ module dipoly;% Header module for dipoly package .
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% For the time being,this contains the inlines that used to be in
% consel,and repeats those in bcoeff .

M packages/dipoly/dipoly1.red => packages/dipoly/dipoly1.red +1 -1
@@ 26,7 26,7 @@ module dipoly1;% Distributive polynomial algorithms.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% Modification of the function 'dipprodin' by Arthur Norman (august 2002,
% REDUCE 3.7).

M packages/dipoly/dipprint.red => packages/dipoly/dipprint.red +1 -1
@@ 25,7 25,7 @@ module dipprint;   %/* printing routines for distributive polynomials*/
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

symbolic procedure diplprint u;
%    Prints a list of distributive polynomials using dipprint

M packages/dipoly/dipvars.red => packages/dipoly/dipvars.red +1 -1
@@ 27,7 27,7 @@ module dipvars;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

symbolic procedure dipvars u;
%   Returns list of variables in prefix form u

M packages/dipoly/expvec.red => packages/dipoly/expvec.red +1 -1
@@ 23,7 23,7 @@ module expvec;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% Specific support for distributive polynomial exponent vectors


M packages/dipoly/torder.red => packages/dipoly/torder.red +1 -1
@@ 24,7 24,7 @@ module torder; % Term order modes for distributive polynomials.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% The routines of this module should be coded as efficiently as
% possible.

M packages/dipoly/vdp2dip.red => packages/dipoly/vdp2dip.red +1 -1
@@ 23,7 23,7 @@ module vdp2dip;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%

M packages/dipoly/vdp2dip1.red => packages/dipoly/vdp2dip1.red +1 -1
@@ 30,7 30,7 @@ module vdp2dip1;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%

M packages/dipoly/vdp3dip.red => packages/dipoly/vdp3dip.red +1 -1
@@ 23,7 23,7 @@ module vdp2dip;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%

M packages/dipoly/vdpcom.red => packages/dipoly/vdpcom.red +1 -1
@@ 25,7 25,7 @@ module vdpcom;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

flag('(vdpprintmax),'share);
vdpprintmax:=5;

M packages/eds/contact.red => packages/eds/contact.red +1 -1
@@ 27,7 27,7 @@ module contact;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$


global '(indxl!* !*sqvar!*);

M packages/eds/disjoin.red => packages/eds/disjoin.red +1 -1
@@ 27,7 27,7 @@ module disjoin;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*edsverbose !*edsdebug !*arbvars !*varopt !*groebopt
        !*solveinconsistent depl!* cfrmcrd!* cfrmrsx!* xvars!*

M packages/eds/eds.red => packages/eds/eds.red +1 -1
@@ 80,7 80,7 @@ module eds;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$


% Other packages which must be loaded at run-time.

M packages/eds/edsaux.red => packages/eds/edsaux.red +1 -1
@@ 27,7 27,7 @@ module edsaux;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*edsverbose !*edsdebug);


M packages/eds/edscfrm.red => packages/eds/edscfrm.red +1 -1
@@ 27,7 27,7 @@ module edscfrm;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

COMMENT. An EDS coframing is stored in a list:


M packages/eds/edsequiv.red => packages/eds/edsequiv.red +1 -1
@@ 27,7 27,7 @@ module edsequiv;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(xtruncate!*);


M packages/eds/edseval.red => packages/eds/edseval.red +1 -1
@@ 27,7 27,7 @@ module edseval;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

COMMENT. A simple exterior differential system is stored in a list:


M packages/eds/edsexptl.red => packages/eds/edsexptl.red +1 -1
@@ 27,7 27,7 @@ module edsexptl;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% These procedures need the other packages loaded during compilation


M packages/eds/edsnorml.red => packages/eds/edsnorml.red +1 -1
@@ 27,7 27,7 @@ module edsnormal;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

COMMENT. The next section contains routines for putting an EDS into
"normal" form. An EDS S is in "normal" form if

M packages/eds/edspatch.red => packages/eds/edspatch.red +1 -1
@@ 27,7 27,7 @@ module edspatch;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*edsverbose !*edsdebug !*arbvars !*varopt !*groebopt
        !*solveinconsistent depl!*);

M packages/eds/edspde.red => packages/eds/edspde.red +1 -1
@@ 27,7 27,7 @@ module edspde;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(xvars!* kord!* depl!* dependencies);
global '(indxl!*);

M packages/eds/edssolve.red => packages/eds/edssolve.red +1 -1
@@ 27,7 27,7 @@ module edssolve;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

COMMENT. The EDS solve routines are interfaces to the general REDUCE
solver, presenting the results in a form more useful in EDS. The most

M packages/eds/edsuser.red => packages/eds/edsuser.red +1 -1
@@ 27,7 27,7 @@ module edsuser;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$


fluid '(alglist!* subfg!* !*arbvars xvars!*);

M packages/eds/element.red => packages/eds/element.red +1 -1
@@ 27,7 27,7 @@ module element;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

COMMENT. At present, the Cartan-Kaehler construction is used, as by
Wahlquist, to reduce the problem to linear algebra. This fails for

M packages/eds/invol.red => packages/eds/invol.red +1 -1
@@ 27,7 27,7 @@ module invol;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*edsverbose !*edsdebug !*edssloppy !*genpos !*ranpos);


M packages/eds/prolong.red => packages/eds/prolong.red +1 -1
@@ 27,7 27,7 @@ module prolong;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$


fluid '(!*edsverbose !*edsdebug !*arbvars !*varopt !*groebopt

M packages/eds/pullback.red => packages/eds/pullback.red +1 -1
@@ 27,7 27,7 @@ module pullback;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

COMMENT. Data structure:


M packages/eds/restrict.red => packages/eds/restrict.red +1 -1
@@ 27,7 27,7 @@ module restrict;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

COMMENT. Data structures:


M packages/eds/systems.red => packages/eds/systems.red +1 -1
@@ 27,7 27,7 @@ module systems;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(kord!* xtruncate!* !*arbvars !*edssloppy cfrmcob!*);
global '(indxl!*);

M packages/eds/tableaux.red => packages/eds/tableaux.red +1 -1
@@ 27,7 27,7 @@ module tableaux;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

COMMENT. Tableaux are stored internally in a tagged matrix of 1-forms:


M packages/eds/transfrm.red => packages/eds/transfrm.red +1 -1
@@ 27,7 27,7 @@ module transfrm;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

COMMENT. Data structure:


M packages/excalc/degform.red => packages/excalc/degform.red +1 -1
@@ 25,7 25,7 @@ module degform;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(frlis!*);


M packages/excalc/exaux.red => packages/excalc/exaux.red +1 -1
@@ 25,7 25,7 @@ module exaux;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*nat);


M packages/excalc/excalc.red => packages/excalc/excalc.red +1 -1
@@ 25,7 25,7 @@ module excalc; % header for EXCALC, a differential geometry package.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$


%*********************************************************************;

M packages/excalc/exdf.red => packages/excalc/exdf.red +1 -1
@@ 25,7 25,7 @@ module exdf;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(subfg!*);


M packages/excalc/exintro.red => packages/excalc/exintro.red +1 -1
@@ 25,7 25,7 @@ module exintro;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(depl!* metricd!* metricu!*);


M packages/excalc/exlists.red => packages/excalc/exlists.red +1 -1
@@ 25,7 25,7 @@ module excalc!-lists;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

symbolic procedure exdflist(u,v);
   'list . exdfl1 listeval(car u,v);

M packages/excalc/forder.red => packages/excalc/forder.red +1 -1
@@ 25,7 25,7 @@ module forder;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

global '(keepl!* wedgemtch!* lftshft!* indxl!*);


M packages/excalc/frames.red => packages/excalc/frames.red +1 -1
@@ 25,7 25,7 @@ module frames;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

global '(basisforml!* basisvectorl!* keepl!* naturalframe2coframe
         dbaseform2base2form dimex!* indxl!* naturalvector2framevector

M packages/excalc/hodge.red => packages/excalc/hodge.red +1 -1
@@ 25,7 25,7 @@ module hodge;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

global '(dimex!* sgn!* detm!* basisforml!*);


M packages/excalc/idexf.red => packages/excalc/idexf.red +1 -1
@@ 25,7 25,7 @@ module idexf;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

global '(exfideal!*);


M packages/excalc/indices.red => packages/excalc/indices.red +1 -1
@@ 25,7 25,7 @@ module indices;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*exp !*msg !*nat !*sub2 alglist!* fancy!-pos!* fancy!-line!*
        frasc!* subfg!* metricd!* metricu!*);

M packages/excalc/indsymm.red => packages/excalc/indsymm.red +1 -1
@@ 25,7 25,7 @@ module indsymm;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(indl);   % Needed by Common Lisp.


M packages/excalc/indxprin.red => packages/excalc/indxprin.red +1 -1
@@ 25,7 25,7 @@ module indxprin; % Functions for special print.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*nat !*nero !*revpri obrkp!* orig!* pline!* posn!* ycoord!*
        ymax!* ymin!* fancy!-pos!* fancy!-line!*);

M packages/excalc/innerprd.red => packages/excalc/innerprd.red +1 -1
@@ 25,7 25,7 @@ module innerprd;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(subfg!*);


M packages/excalc/killing_vector.red => packages/excalc/killing_vector.red +1 -1
@@ 25,7 25,7 @@ module killingvec;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$
fluid '(metricd!*);

global '(basisforml!* basisvectorl!* naturalvector2framevector);

M packages/excalc/liedf.red => packages/excalc/liedf.red +1 -1
@@ 25,7 25,7 @@ module liedf;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

global '(commutator!-of!-framevectors);


M packages/excalc/lievalfm.red => packages/excalc/lievalfm.red +1 -1
@@ 25,7 25,7 @@ module lievalfm;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

symbolic procedure liebrackstat;
   begin scalar x;

M packages/excalc/partdf.red => packages/excalc/partdf.red +1 -1
@@ 26,7 26,7 @@ module partdf;   % Adaption of df module.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(alglist!* depl!* frlis!* posn!* subfg!* wtl!* fancy!-pos!*
        fancy!-line!*);

M packages/excalc/partitsf.red => packages/excalc/partitsf.red +1 -1
@@ 25,7 25,7 @@ module partitsf;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(alglist!* !*exp);


M packages/excalc/vardf.red => packages/excalc/vardf.red +1 -1
@@ 25,7 25,7 @@ module vardf;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(depl!* kord!*);


M packages/excalc/vecanlys.red => packages/excalc/vecanlys.red +1 -1
@@ 23,7 23,7 @@ module vecanlys;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% Author: Eberhard Schruefer


M packages/excalc/wedge.red => packages/excalc/wedge.red +1 -1
@@ 25,7 25,7 @@ module wedge;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

global '(dimex!* lftshft!* wedgemtch!*);


M packages/factor/alphas.red => packages/factor/alphas.red +1 -1
@@ 25,7 25,7 @@ module alphas;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(alphalist current!-modulus hensel!-growth!-size
        number!-of!-factors);

M packages/factor/bigmodp.red => packages/factor/bigmodp.red +1 -1
@@ 26,7 26,7 @@ module bigmodp; % Modular polynomial arithmetic where the modulus may
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(current!-modulus modulus!/2);


M packages/factor/coeffts.red => packages/factor/coeffts.red +1 -1
@@ 25,7 25,7 @@ module coeffts;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*trfac
        alphalist

M packages/factor/degsets.red => packages/factor/degsets.red +1 -1
@@ 25,7 25,7 @@ module degsets;   % Degree set processing.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*trallfac
        !*trfac

M packages/factor/ezgcd.red => packages/factor/ezgcd.red +1 -1
@@ 25,7 25,7 @@ module ezgcd;  % Header module for ezgcd package.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

create!-package('(ezgcd alphas coeffts ezgcdf facmisc facstr interfac
                  linmodp mhensfns modpoly multihen unihens),

M packages/factor/ezgcdf.red => packages/factor/ezgcdf.red +1 -1
@@ 25,7 25,7 @@ module ezgcdf; % Polynomial GCD algorithms.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*exp
        !*gcd

M packages/factor/facmisc.red => packages/factor/facmisc.red +1 -1
@@ 34,7 34,7 @@ fluid '(current!-modulus
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

global '(largest!-small!-modulus pseudo!-primes teeny!-primes);


M packages/factor/facmod.red => packages/factor/facmod.red +1 -1
@@ 25,7 25,7 @@ module facmod; % Modular factorization: discover the factor count mod p.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(current!-modulus
        dpoly

M packages/factor/facprim.red => packages/factor/facprim.red +1 -1
@@ 25,7 25,7 @@ module facprim;   % Factorize a primitive multivariate polynomial.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% Modifications by: Arthur C. Norman, Anthony C. Hearn.


M packages/factor/facstr.red => packages/factor/facstr.red +1 -1
@@ 25,7 25,7 @@ module facstr;   % Reconstruction of factors.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% Modifications by: Arthur C. Norman, Anthony C. Hearn.


M packages/factor/factor.red => packages/factor/factor.red +1 -1
@@ 25,7 25,7 @@ module factor;  % Header for factorizer.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

create!-package('(factor bigmodp degsets facprim facmod facuni % factrr
                  imageset pfactor vecpoly pfacmult),

M packages/factor/facuni.red => packages/factor/facuni.red +1 -1
@@ 25,7 25,7 @@ module facuni;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*force!-prime
        !*trfac

M packages/factor/imageset.red => packages/factor/imageset.red +1 -1
@@ 25,7 25,7 @@ module imageset;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*force!-prime
        !*force!-zero!-set

M packages/factor/interfac.red => packages/factor/interfac.red +1 -1
@@ 25,7 25,7 @@ module interfac;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% Modifications by: Anthony C. Hearn.


M packages/factor/linmodp.red => packages/factor/linmodp.red +1 -1
@@ 25,7 25,7 @@ module linmodp;  % Routines for solving linear equations mod p.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(prime!-base);


M packages/factor/mhensfns.red => packages/factor/mhensfns.red +1 -1
@@ 25,7 25,7 @@ module mhensfns;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*trfac
        alphalist

M packages/factor/modpoly.red => packages/factor/modpoly.red +1 -1
@@ 27,7 27,7 @@ module modpoly;   % Routines for performing arithmetic on multivariate
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(current!-modulus
        exact!-quotient!-flag

M packages/factor/multihen.red => packages/factor/multihen.red +1 -1
@@ 26,7 26,7 @@ module multihen;   %  Hensel construction for the multivariate case.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*overshoot
        !*trfac

M packages/factor/pfacmult.red => packages/factor/pfacmult.red +1 -1
@@ 25,7 25,7 @@ module pfacmult; % multivariate modular factorization.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% Reduction of multivariate modular factorization to univariate
% factorization by Kroneckers map.

M packages/factor/pfactor.red => packages/factor/pfactor.red +1 -1
@@ 25,7 25,7 @@ module pfactor;  % Factorization of polynomials modulo p.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*balanced_mod
        !*gcd

M packages/factor/unihens.red => packages/factor/unihens.red +1 -1
@@ 27,7 27,7 @@ module unihens;  % Univariate case of Hensel code with quadratic growth.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*linear
        !*overshoot

M packages/factor/vecpoly.red => packages/factor/vecpoly.red +1 -1
@@ 25,7 25,7 @@ module vecpoly;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(current!-modulus safe!-flag);


M packages/fide/approx.red => packages/fide/approx.red +1 -1
@@ 25,7 25,7 @@ module approx;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% Version REDUCE 3.6     05/1991$


M packages/fide/charpol.red => packages/fide/charpol.red +1 -1
@@ 25,7 25,7 @@ module charpol;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% Version REDUCE 3.6     05/1991.


M packages/fide/discret.red => packages/fide/discret.red +1 -1
@@ 25,7 25,7 @@ module discret; % Data for discretization.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

algebraic;


M packages/fide/expres.red => packages/fide/expres.red +1 -1
@@ 25,7 25,7 @@ module expres$
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% Version REDUCE 3.6    05/1991


M packages/fide/fide.red => packages/fide/fide.red +1 -1
@@ 26,7 26,7 @@ module fide; % FInite difference method for partial Differential Eqn
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% Version: 1.1.2 for REDUCE 3.6, May 29, 1995.


M packages/fide/fide1.red => packages/fide/fide1.red +1 -1
@@ 23,7 23,7 @@ module fide1;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

create!-package('(fide1 expres iimet),'(contrib fide));


M packages/fide/hurwp.red => packages/fide/hurwp.red +1 -1
@@ 25,7 25,7 @@ module hurwp;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% Version REDUCE 3.6     05/1991


M packages/fide/iimet.red => packages/fide/iimet.red +1 -1
@@ 26,7 26,7 @@ module iimet;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

global '(cursym!* !*val dimension!*)$
fluid '(!*exp alglist!*)$

M packages/fide/linband.red => packages/fide/linband.red +1 -1
@@ 25,7 25,7 @@ module linband;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% Version REDUCE 3.6     05/1991


M packages/gentran/gentran.red => packages/gentran/gentran.red +1 -1
@@ 25,7 25,7 @@ module gentran;  % Header module for gentran package.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% Modifications by:  Michael C. Dewar.


M packages/gentran/goutput.red => packages/gentran/goutput.red +1 -1
@@ 25,7 25,7 @@ module goutput;  % GENTRAN Code Formatting & Printing and Error Handler
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

%%  Author:  Barbara L. Gates  %%
%%  December 1986              %%

M packages/gentran/gparser.red => packages/gentran/gparser.red +1 -1
@@ 23,7 23,7 @@ module gparser;    %%  GENTRAN Parser Module  %%
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

%%  Author:  Barbara L. Gates  %%
%%  December 1986              %%

M packages/gentran/intrfc.red => packages/gentran/intrfc.red +1 -1
@@ 23,7 23,7 @@ module intrfc;    %%  GENTRAN Parsing Routines & Control Functions  %%
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

%%  Author:  Barbara L. Gates  %%
%%  December 1986              %%

M packages/gentran/lspc.red => packages/gentran/lspc.red +1 -1
@@ 23,7 23,7 @@ module lspc;    %%  GENTRAN LISP-to-C Translation Module  %%
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

%%  Author:  Barbara L. Gates  %%
%%  December 1986              %%

M packages/gentran/lspfor.red => packages/gentran/lspfor.red +1 -1
@@ 42,7 42,7 @@ switch f90$
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*gendecs)$
switch gendecs$

M packages/gentran/lsppasc.red => packages/gentran/lsppasc.red +1 -1
@@ 28,7 28,7 @@ module lsppasc;    %%  GENTRAN LISP-to-PASCAL Translation Module  %%
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$




M packages/gentran/lsprat.red => packages/gentran/lsprat.red +1 -1
@@ 33,7 33,7 @@ module lsprat;    %%  GENTRAN LISP-to-RATFOR Translation Module  %%
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$


symbolic$

M packages/gentran/pre.red => packages/gentran/pre.red +1 -1
@@ 23,7 23,7 @@ module pre;    %%  GENTRAN Preprocessing Module  %%
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

%%  Author:  Barbara L. Gates  %%
%%  December 1986              %%

M packages/gentran/redlsp.red => packages/gentran/redlsp.red +1 -1
@@ 23,7 23,7 @@ module redlsp;    %%  GENTRAN LISP Code Generation Module  %%
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

%%  Author:  Barbara L. Gates  %%
%%  December 1986              %%

M packages/gentran/segmnt.red => packages/gentran/segmnt.red +1 -1
@@ 23,7 23,7 @@ module segmnt;    %%  Segmentation Module  %%
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

%%  Author:  Barbara L. Gates  %%
%%  December 1986              %%

M packages/gentran/templt.red => packages/gentran/templt.red +1 -1
@@ 25,7 25,7 @@ module templt;    %%  GENTRAN Template Processing Routines  %%
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

%%  Author:  Barbara L. Gates  %%
%%  December 1986              %%

M packages/gentran/utils.red => packages/gentran/utils.red +1 -1
@@ 23,7 23,7 @@ module utils;   %%  GENTRAN Utility Functions  %%
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

%%  Author:  Barbara L. Gates  %%
%%  December 1986              %%

M packages/geometry/geoprover.red => packages/geometry/geoprover.red +1 -1
@@ 25,7 25,7 @@
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

module geoprover;


M packages/geometry/old-geometry.red => packages/geometry/old-geometry.red +1 -1
@@ 25,7 25,7 @@
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

COMMENT


M packages/groebner/buchbg.red => packages/groebner/buchbg.red +1 -1
@@ 26,7 26,7 @@ module buchbg;% Central Groebner base code: Buchberger algorithm.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

flag('(groebrestriction groebresmax gvarslast groebmonfac
           groebprotfile glterms),'share);

M packages/groebner/glexconv.red => packages/groebner/glexconv.red +1 -1
@@ 24,7 24,7 @@ module glexconv;% Newbase - algorithm :
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

flag('(gvarslast),'share);


M packages/groebner/greduo.red => packages/groebner/greduo.red +1 -1
@@ 24,7 24,7 @@ module greduo;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

global'(gorder gorders greduce_result);


M packages/groebner/grinter2.red => packages/groebner/grinter2.red +1 -1
@@ 24,7 24,7 @@ module grinter2;% Interface of Groebner package to REDUCE:
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$
symbolic procedure groebnr2entry(fn,u);
<<groebnr2load();apply(get(fn,'psopfn),{u})>>;


M packages/groebner/grinterf.red => packages/groebner/grinterf.red +1 -1
@@ 21,7 21,7 @@
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

module grinterf;% Interface of Groebner package to reduce.
% Entry points to the main module and general interface support.

M packages/groebner/groebcri.red => packages/groebner/groebcri.red +1 -1
@@ 23,7 23,7 @@ module groebcri;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%

M packages/groebner/groebfac.red => packages/groebner/groebfac.red +1 -1
@@ 25,7 25,7 @@ imports factor;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

symbolic procedure groebfactorize (h,abort1,g,g99);
  begin scalar r,tim,gctim,h1,groebactualg99!*,groebfabort!*,test;

M packages/groebner/groebidq.red => packages/groebner/groebidq.red +1 -1
@@ 29,7 29,7 @@ switch groebfac,groebrm,trgroeb,trgroebs,trgroebr,groebstat;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

!*groebidqbasis:=t;       % Default : basis from idq .


M packages/groebner/groebman.red => packages/groebner/groebman.red +1 -1
@@ 28,7 28,7 @@ flag ('(groebrestriction groebresmax gvarslast groebprotfile gltb),'share);
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

symbolic procedure gsorteval pars;
% reformat a polynomial or a list of polynomials by a distributive

M packages/groebner/groebmes.red => packages/groebner/groebmes.red +1 -1
@@ 29,7 29,7 @@ module groebmes;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

symbolic procedure groebpairprint(p);
<< groebmessff(" pair(",cadr p,nil);

M packages/groebner/groebner.red => packages/groebner/groebner.red +1 -1
@@ 26,7 26,7 @@ module groebner;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% module structure:
%     GROEBNER  package + GROEBNR2 package

M packages/groebner/groebnr2.red => packages/groebner/groebnr2.red +1 -1
@@ 26,7 26,7 @@ create!-package('(groebnr2 groebman glexconv groebmes groebrst groebtra%groebres
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

load!-package 'groebner;


M packages/groebner/groebopt.red => packages/groebner/groebopt.red +1 -1
@@ 24,7 24,7 @@ module groebopt;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%   optimization of the sequence of variables
%

M packages/groebner/groebres.red => packages/groebner/groebres.red +1 -1
@@ 23,7 23,7 @@ module groebres;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%

M packages/groebner/groebrst.red => packages/groebner/groebrst.red +1 -1
@@ 23,7 23,7 @@ module groebrst;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%

M packages/groebner/groebsea.red => packages/groebner/groebsea.red +1 -1
@@ 43,7 43,7 @@ symbolic procedure groebsearchinlist(vev,g);
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

symbolic procedure groeblistadd(poly,stru);
% Add one polynomial to the tree;

M packages/groebner/groebsor.red => packages/groebner/groebsor.red +1 -1
@@ 29,7 29,7 @@ module groebsor;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

symbolic procedure groebcplistsortin(p,pl);
% Distributive polynomial critical pair list sort. pl is a

M packages/groebner/groebspa.red => packages/groebner/groebspa.red +1 -1
@@ 31,7 31,7 @@ module groebspa;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$


symbolic procedure vevunion(e1,e2);

M packages/groebner/groebtra.red => packages/groebner/groebtra.red +1 -1
@@ 30,7 30,7 @@ module groebtra;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$
switch groebopt,groebfac,trgroeb,trgroebs,trgroeb1,
       trgroebr,groebstat,groebprot;


M packages/groebner/groesolv.red => packages/groebner/groesolv.red +1 -1
@@ 24,7 24,7 @@ module groesolv;% Tools for solving systems of polynomials(and poly-
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

%   Authors:     H. Melenk(ZI Berlin,Germany)
%                H. M Moeller(when this module was written Fernuniversitaet Hagen,

M packages/groebner/groeweak.red => packages/groebner/groeweak.red +1 -1
@@ 23,7 23,7 @@ module groeweak;% Weak test for f ~ 0 modulo g .
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

switch groebweak;


M packages/groebner/groext.red => packages/groebner/groext.red +1 -1
@@ 31,7 31,7 @@ module groext; % author: Herbert Melenk, ZIB Berlin.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

create!-package('(groext),'(contrib groebner));


M packages/groebner/hggroeb.red => packages/groebner/hggroeb.red +1 -1
@@ 23,7 23,7 @@ module hggroeb; % Homogeneous Graded Grobner bases.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

%    Buchberger algorithm for homogeneous graded polynomial
%    systems. d1 and d2 are positive integers (d2 may be

M packages/groebner/hilbert2.red => packages/groebner/hilbert2.red +1 -1
@@ 27,7 27,7 @@ module hilberts;% Hilbert series of a set of Monomials .
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

COMMENT


M packages/groebner/hilbertp.red => packages/groebner/hilbertp.red +1 -1
@@ 23,7 23,7 @@ module hilbertp;% Computing Hilbert Polynomial from the Hilbert series.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

symbolic procedure newhilbi(bas,var,vars);
 begin scalar baslt,n,u,grad,h,joa,a,ii,dim0,varx,dmode!*,!*modular;

M packages/groebner/hilberts.red => packages/groebner/hilberts.red +1 -1
@@ 27,7 27,7 @@ module hilberts;% Hilbert series of a set of Monomials .
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

COMMENT


M packages/groebner/hille.red => packages/groebner/hille.red +1 -1
@@ 28,7 28,7 @@ module hille; % Hillebrand decomposition of a zero - dimensional polynomial
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% triang4: groeposthillebrand: interface for the solver (for zero -
% dimensional polynomial ideals).

M packages/groebner/ideals.red => packages/groebner/ideals.red +1 -1
@@ 28,7 28,7 @@ module ideals;          % operators for polynomial ideals.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

create!-package('(ideals),'(contrib groebner));


M packages/groebner/kredelw.red => packages/groebner/kredelw.red +1 -1
@@ 25,7 25,7 @@ module kredelw;% Kredel Weispfenning algorithm .
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

symbolic procedure gdimension_eval u;
begin integer n,m;

M packages/groebner/kuechl.red => packages/groebner/kuechl.red +1 -1
@@ 25,7 25,7 @@ module kuechl;% Walking faster,B . Amrhrein,O . Gloor,W . Kuechlin
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% Version 3 with a rational local solution(after letters from H.M.Moeller).
% Version 4 with keeping the polynomials as DIPs converting only

M packages/groebner/traverso.red => packages/groebner/traverso.red +1 -1
@@ 23,7 23,7 @@ module traverso;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% Buchberger algorithm base on "sugar" strategy;
% see Giovini-Mora-Niesi-Robbiano-Traverso:

M packages/hephys/cvit.red => packages/hephys/cvit.red +1 -1
@@ 30,7 30,7 @@ module cvit;   % Header module for CVIT package.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% 07.06.90 all MAP replaced by MAP_   RT
% 08.06.90 SOME MACROS FROM CVITMAP FILE ADDED to section IV RT

M packages/hephys/cvitmap.red => packages/hephys/cvitmap.red +1 -1
@@ 23,7 23,7 @@ module cvitmap;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

  exports calc_spur$
  imports simp!*,reval,calc_map_tar ,calc_den_tar,spaces$

M packages/hephys/evalmaps.red => packages/hephys/evalmaps.red +1 -1
@@ 23,7 23,7 @@ module evalmaps;  % Interaction with alg mode: variant without nonlocs;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

  exports    strand!-alg!-top $
  imports    color!-strand,contract!-strand $

M packages/hephys/hephys.red => packages/hephys/hephys.red +1 -1
@@ 30,7 30,7 @@ module hephys;   % Support for high energy physics calculations.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

create!-package('(hephys),'(appl));


M packages/hephys/intfierz.red => packages/hephys/intfierz.red +1 -1
@@ 23,7 23,7 @@ module intfierz; % Interface with Rodionov-Fierzing Routine.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

  exports  calc_map_tar,calc_den_tar,pre!-calc!-map_ $
  imports    mk!-numr,map_!-to!-strand $

M packages/hephys/map2strn.red => packages/hephys/map2strn.red +1 -1
@@ 23,7 23,7 @@ module map2strn;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

%************* TRANSFORMATION OF MAP TO STRAND **********************$
%                                                                    $

M packages/hephys/noncom2.red => packages/hephys/noncom2.red +1 -1
@@ 23,7 23,7 @@ module noncom2;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%                        N O N C O M 2                             %

M packages/hephys/physop.red => packages/hephys/physop.red +1 -1
@@ 23,7 23,7 @@ module physop;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%                                                                  %

M packages/hephys/red2cvit.red => packages/hephys/red2cvit.red +1 -1
@@ 23,7 23,7 @@ module red2cvit;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% COPYRIGHT (C) 1988,1990,INSTITUTE OF NUCLEAR PHYSICS,MOSCOW STATE
%                          UNIV.

M packages/int/contents.red => packages/int/contents.red +1 -1
@@ 25,7 25,7 @@ module contents;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(content indexlist sqfr varlist zlist);   % clogflag


M packages/int/csolve.red => packages/int/csolve.red +1 -1
@@ 25,7 25,7 @@ module csolve;   % routines to do with the C constants.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*trint ccount cmap cmatrix cval loglist neweqn);


M packages/int/df2q.red => packages/int/df2q.red +1 -1
@@ 25,7 25,7 @@ module df2q;   % Conversion from distributive to standard forms.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(indexlist zlist);


M packages/int/dint.red => packages/int/dint.red +1 -1
@@ 25,7 25,7 @@ module dint;  % Definite integration support.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*hold!-int!* !*precise);


M packages/int/distrib.red => packages/int/distrib.red +1 -1
@@ 25,7 25,7 @@ module distrib;  % Routines for manipulating distributed forms.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(indexlist sqrtlist zlist);


M packages/int/divide.red => packages/int/divide.red +1 -1
@@ 25,7 25,7 @@ module divide;  % Exact division of standard forms to give a S Q.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*trdiv !*trint resid sqrtlist zlist);


M packages/int/driver.red => packages/int/driver.red +1 -1
@@ 26,7 26,7 @@ module driver;  % Driving routines for integration program.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*algint
        !*backtrace

M packages/int/hacksqrt.red => packages/int/hacksqrt.red +1 -1
@@ 25,7 25,7 @@ module hacksqrt;  % Routines for manipulation of sqrt expressions.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(nestedsqrts thisplace);


M packages/int/halfangl.red => packages/int/halfangl.red +1 -1
@@ 26,7 26,7 @@ module halfangl;  % Routines for conversion to half angle tangents.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*gcd);


M packages/int/ibasics.red => packages/int/ibasics.red +1 -1
@@ 25,7 25,7 @@ module ibasics;   % Some basic support routines for integrator.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*backtrace !*gcd !*sqfree !*trint indexlist sqrtflag sqrtlist
        varlist zlist);

M packages/int/idepend.red => packages/int/idepend.red +1 -1
@@ 25,7 25,7 @@ module idepend;  % Routines for considering dependency among variables.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(taylorvariable);


M packages/int/int-table.red => packages/int/int-table.red +1 -1
@@ 25,7 25,7 @@ module int!-table;  % Definition of integrals by means of patterns.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

algebraic;


M packages/int/int.red => packages/int/int.red +1 -1
@@ 26,7 26,7 @@ module int; % Header for REDUCE integration package.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% Note that at one point, INT had been flagged SIMP0FN.  However, that
% lead to problems when the arguments of INT contained pattern

M packages/int/intfac.red => packages/int/intfac.red +1 -1
@@ 25,7 25,7 @@ module intfac;   % Interface between integrator and factorizer.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% Based on earlier versions by James Davenport, Mary Ann Moore and
% Arthur Norman.

M packages/int/isolve.red => packages/int/isolve.red +1 -1
@@ 26,7 26,7 @@ module isolve;   % Routines for solving the final reduction equation.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*trint
        badpart

M packages/int/jpatches.red => packages/int/jpatches.red +1 -1
@@ 25,7 25,7 @@ module jpatches;   % Routines for manipulating sf's with power folding.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*noncomp sqrtflag);


M packages/int/makevars.red => packages/int/makevars.red +1 -1
@@ 25,7 25,7 @@ module makevars; % Make dummy variables for integration process.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*gensymlist!* !*purerisch);


M packages/int/ratint.red => packages/int/ratint.red +1 -1
@@ 25,7 25,7 @@ module ratint;   % Support for direct rational integration.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

symbolic procedure rationalintegrate(x,var);
    begin     scalar n,d;

M packages/int/reform.red => packages/int/reform.red +1 -1
@@ 25,7 25,7 @@ module reform; % Reformulate expressions using C-constant substitution.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*trint cmap cval loglist ulist);


M packages/int/simpsqrt.red => packages/int/simpsqrt.red +1 -1
@@ 26,7 26,7 @@ module simpsqrt;   % Simplify square roots.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*galois !*pvar !*tra !*trint basic!-listofallsqrts
        gaussiani basic!-listofnewsqrts intvar knowntobeindep

M packages/int/sqrtf.red => packages/int/sqrtf.red +1 -1
@@ 25,7 25,7 @@ module sqrtf;   % Square root of standard forms.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*noextend zlist);


M packages/int/symint.red => packages/int/symint.red +1 -1
@@ 25,7 25,7 @@ module symint;  % Improved simplification of symbolic integrals
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% An extension of simpint1 in module driver (by Mary Ann Moore, Arthur
% C. Norman and John P. Fitch) to provide better simplification of

M packages/int/tidysqrt.red => packages/int/tidysqrt.red +1 -1
@@ 26,7 26,7 @@ module tidysqrt;  % General tidying up of square roots.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

exports sqrt2top,tidysqrt;


M packages/int/trcase.red => packages/int/trcase.red +1 -1
@@ 26,7 26,7 @@ module trcase;  % Driving routine for integration of transcendental fns.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*backtrace
        !*failhard

M packages/int/trialdiv.red => packages/int/trialdiv.red +1 -1
@@ 25,7 25,7 @@ module trialdiv;  % Trial division routines.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*trint intvar loglist tanlist);


M packages/int/vect.red => packages/int/vect.red +1 -1
@@ 26,7 26,7 @@ module vect;  % Vector support routines.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

exports mkuniquevect,mkvec,mkvecf2q,mkidenm,copyvec,vecsort,swap,
        non!-null!-vec,mkvect2;

M packages/invbase/invbase.red => packages/invbase/invbase.red +1 -1
@@ 31,7 31,7 @@ module invbase; % Computing involutive basis of polynomial system.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% Minor fixes by John Fitch.


M packages/invbase/invbcomp.red => packages/invbase/invbcomp.red +1 -1
@@ 23,7 23,7 @@ module invbcomp;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

%----------------------------------------------------------------------
symbolic inline procedure c_zero();  nil$    %  REPRESENTATION OF ZERO

M packages/invbase/invbint.red => packages/invbase/invbint.red +1 -1
@@ 23,7 23,7 @@ module invbint; % Algebraic mode interface to invbase.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

symbolic procedure invtorder u;
  begin scalar w,o;

M packages/laplace/laplace.red => packages/laplace/laplace.red +1 -1
@@ 25,7 25,7 @@ module laplace;  % Package for Laplace and inverse Laplace transforms.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% Date:  24 October 1988.


M packages/lessons/less1.red => packages/lessons/less1.red +1 -1
@@ 5,7 5,7 @@ COMMENT
                         David R. Stoutemyer
                         University of Hawaii

% $Id: $
% $Id$

COMMENT This is lesson 1 of 7 interactive lessons about the REDUCE
system for computer symbolic mathematics.  These lessons presume an

M packages/lessons/less2.red => packages/lessons/less2.red +1 -1
@@ 5,7 5,7 @@ COMMENT
                         David R. Stoutemyer
                         University of Hawaii

% $Id: $
% $Id$

COMMENT This is lesson 2 of 7 REDUCE lessons.  Please refrain from
using variables beginning with the letters F through H during the

M packages/lessons/less3.red => packages/lessons/less3.red +1 -1
@@ 9,7 9,7 @@ COMMENT
                            Herbert Melenk
                      Konrad-Zuse-Zentrum Berlin
                                   
% $Id: $
% $Id$

COMMENT This is lesson 3 of 7 REDUCE lessons.  Please refrain from
using variables beginning with the letters F through H during the

M packages/lessons/less4.red => packages/lessons/less4.red +1 -1
@@ 5,7 5,7 @@ COMMENT
                         David R. Stoutemyer
                         University of Hawaii

% $Id: $
% $Id$

COMMENT This is lesson 4 of 7 REDUCE lessons.  As before, please
refrain from using variables beginning with the letters F through H

M packages/lessons/less5.red => packages/lessons/less5.red +1 -1
@@ 5,7 5,7 @@ COMMENT
                         David R. Stoutemyer
                         University of Hawaii

% $Id: $
% $Id$

COMMENT This is lesson 5 of 7 REDUCE lessons.


M packages/lessons/less6.red => packages/lessons/less6.red +1 -1
@@ 5,7 5,7 @@ COMMENT
                         David R. Stoutemyer
                         University of Hawaii
 
% $Id: $
% $Id$
 
COMMENT This is lesson 6 of 7 REDUCE lessons.  A prerequisite is to
read an introductory text about LISP, such as "A Concise Introduction

M packages/lessons/less7.red => packages/lessons/less7.red +1 -1
@@ 5,7 5,7 @@ COMMENT
                         David R. Stoutemyer
                         University of Hawaii
 
% $Id: $
% $Id$
 
COMMENT This is lesson 7 of 7 REDUCE lessons.  Sometimes it is desired
to have a certain facility available to algebraic mode, no such

M packages/linalg/cholesky.red => packages/linalg/cholesky.red +1 -1
@@ 39,7 39,7 @@ module cholesky;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$




M packages/linalg/gramschm.red => packages/linalg/gramschm.red +1 -1
@@ 34,7 34,7 @@ module gramchmd;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$




M packages/linalg/lamatrix.red => packages/linalg/lamatrix.red +1 -1
@@ 31,7 31,7 @@ module lmatrix;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

switch mod_was_on;  % Used internally to keep track of the modular
                    % switch.

M packages/linalg/linalg.red => packages/linalg/linalg.red +1 -1
@@ 81,7 81,7 @@ module linalg;   % The Linear Algebra package.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

load_package matrix;


M packages/linalg/ludecom.red => packages/linalg/ludecom.red +1 -1
@@ 40,7 40,7 @@ module ludecom;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$




M packages/linalg/simplex.red => packages/linalg/simplex.red +1 -1
@@ 42,7 42,7 @@ module simplex;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

if not get('leq,'simpfn) then
<<

M packages/linalg/svd.red => packages/linalg/svd.red +1 -1
@@ 36,7 36,7 @@ module svd;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$




M packages/linalg/tadjoint.red => packages/linalg/tadjoint.red +1 -1
@@ 37,7 37,7 @@ module tadjoint;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

symbolic inline procedure mksq!*mat in_mat;
%

M packages/listvecops/listvecops.red => packages/listvecops/listvecops.red +1 -1
@@ 27,7 27,7 @@ module listvecops;   % Vector operations on lists.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$
create!-package('(listvecops),nil);

global '(cursym!*);

M packages/mathml/ir2om.red => packages/mathml/ir2om.red +1 -1
@@ 32,7 32,7 @@
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% The following tables are used by the functions in this file       %
% in order to map properly intermediate representation tokens   %

M packages/mathml/mathml.red => packages/mathml/mathml.red +1 -1
@@ 23,7 23,7 @@ module mathml;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% Version 5 August 1999


M packages/mathml/mathml_1.red => packages/mathml/mathml_1.red +1 -1
@@ 23,7 23,7 @@ module mathml;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% Version 5 August 1999


M packages/mathml/mathmlom.red => packages/mathml/mathmlom.red +1 -1
@@ 25,7 25,7 @@ module mathmlom;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*f!* safe_atts char ch atts omfuncs!*
        interval!* mmltypes!* constantsom!*

M packages/mathml/mml_ir.red => packages/mathml/mml_ir.red +1 -1
@@ 32,7 32,7 @@
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%  Here start the functions in charge of parsing MathML and printing                   %

M packages/mathml/mtables.red => packages/mathml/mtables.red +1 -1
@@ 29,7 29,7 @@
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

M packages/mathml/om2ir.red => packages/mathml/om2ir.red +1 -1
@@ 22,7 22,7 @@
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$
omfuncs!*:=
'((oma . (omair))
(oms . (omsir))

M packages/mathml/tools.red => packages/mathml/tools.red +1 -1
@@ 33,7 33,7 @@
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$
% Declaration of two switches.
% _mathml_ allows all output to be printed in mathml.
% _both_ allows all output to be printed in mathml and in normal reduce

M packages/mathpr/dfprin.red => packages/mathpr/dfprin.red +1 -1
@@ 27,7 27,7 @@ module dfprin;     % Printing for derivatives plus other options
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*fort !*nat !*noarg depl!* posn!*);


M packages/mathpr/fortpri.red => packages/mathpr/fortpri.red +1 -1
@@ 30,7 30,7 @@ module fortpri; % FORTRAN output package for expressions.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid  '(!*fort
         !*fortupper

M packages/mathpr/mathpr.red => packages/mathpr/mathpr.red +1 -1
@@ 25,7 25,7 @@ module mathpr;  % Header module for mathpr package.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

create!-package('(mathpr mprint sqprint ratprin dfprin % prend specprin
                  fortpri),

M packages/mathpr/mintro.red => packages/mathpr/mintro.red +1 -1
@@ 22,7 22,7 @@
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$
COMMENT
I have put in support for the things that the Twente brigade had, and
indeed when used with care they have jolly good effects on readability.

M packages/mathpr/mprint.red => packages/mathpr/mprint.red +1 -1
@@ 27,7 27,7 @@ module mprint; % Basic output package for symbolic expressions.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid  '(!*fort
         !*list

M packages/mathpr/prend.red => packages/mathpr/prend.red +1 -1
@@ 25,7 25,7 @@ module prend;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*clisp);


M packages/mathpr/ratprin.red => packages/mathpr/ratprin.red +1 -1
@@ 25,7 25,7 @@ module ratprin;   % Printing standard quotients.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% Modifications by: Anthony C. Hearn & A. C. Norman.


M packages/mathpr/specprin.red => packages/mathpr/specprin.red +1 -1
@@ 25,7 25,7 @@ module specprin;   % Printing other special forms.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid  '(!*fort
         !*nat

M packages/mathpr/sqprint.red => packages/mathpr/sqprint.red +1 -1
@@ 27,7 27,7 @@ module sqprint;   % Routines for printing standard forms and quotients.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% Modified by A. C. Norman, 1987.


M packages/mathpr/xprint.red => packages/mathpr/xprint.red +1 -1
@@ 25,7 25,7 @@ module xprint; % Display sums, products and integrals in 2D.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% Print some things using PC characters that will make some things
% look really pretty.  Note that the effect can depend on you having

M packages/matrix/bareiss.red => packages/matrix/bareiss.red +1 -1
@@ 26,7 26,7 @@ module bareiss; % Inversion routines using the Bareiss 2-step method.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% This module is rife with essential references to RPLAC-based
% functions.

M packages/matrix/brsltnt_bmap.red => packages/matrix/brsltnt_bmap.red +1 -1
@@ 24,7 24,7 @@ module brsltnt_bmap.red;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$
% Author: Eberhard Schruefer                          Copyright (c) 2019

% Resultant via Bezout's matrix construction. The calulation of the determinant

M packages/matrix/cofactor.red => packages/matrix/cofactor.red +1 -1
@@ 25,7 25,7 @@ module cofactor;   % Cofactor operator.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

COMMENT


M packages/matrix/det.red => packages/matrix/det.red +1 -1
@@ 25,7 25,7 @@ module det;   % Determinant and trace routines.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*cramer !*rounded asymplis!* bareiss!-step!-size!* kord!*
        powlis!* powlis1!* subfg!* wtl!*);

M packages/matrix/extops.red => packages/matrix/extops.red +1 -1
@@ 26,7 26,7 @@ module extops;  % Support for exterior multiplication.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

COMMENT. Data structure for simple exterior forms is


M packages/matrix/glmat.red => packages/matrix/glmat.red +1 -1
@@ 27,7 27,7 @@ module glmat; % Routines for inverting matrices and finding eigen-values
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*cramer !*factor !*gcd !*sqfree !*sub2 kord!*);


M packages/matrix/matpri.red => packages/matrix/matpri.red +1 -1
@@ 26,7 26,7 @@ module matpri;   % Matrix printing routines.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*nat obrkp!* orig!* pline!* posn!* ycoord!* ymax!* ymin!*);


M packages/matrix/matpri2.red => packages/matrix/matpri2.red +1 -1
@@ 25,7 25,7 @@ module matpri; % matrix prettyprinter
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

global '(!&count!& !&m!-p!-flag!& !&name !&namearray);


M packages/matrix/matproc.red => packages/matrix/matproc.red +1 -1
@@ 27,7 27,7 @@ module matproc;   %  Support for matrix valued procedures.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$
global '(cursym!*);

symbolic procedure readmatproc;

M packages/matrix/matrix.red => packages/matrix/matrix.red +1 -1
@@ 27,7 27,7 @@ module matrix;  % Header for matrix package.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% This module has one reference to rplaca.


M packages/matrix/matsm.red => packages/matrix/matsm.red +1 -1
@@ 27,7 27,7 @@ module matsm; % Simplification of matrices.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% This module is rife with essential references to RPLAC-based
% functions.

M packages/matrix/nestdom.red => packages/matrix/nestdom.red +1 -1
@@ 25,7 25,7 @@ module nestdom; % nested domain: domain elements are standard quotients
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% Original version by Herbert Melenk, 1993(?)


M packages/matrix/nullsp.red => packages/matrix/nullsp.red +1 -1
@@ 25,7 25,7 @@ module nullsp;  % Compute the nullspace (basis vectors) of a matrix.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% Algorithm:  Rational Gaussian elimination with standard qutotients.


M packages/matrix/rank.red => packages/matrix/rank.red +1 -1
@@ 25,7 25,7 @@ module rank;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% Module for calculating the rank of a matrix or a system of linear
% equations.

M packages/matrix/resultnt.red => packages/matrix/resultnt.red +1 -1
@@ 25,7 25,7 @@ module resultnt;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% Modifications by: Anthony C. Hearn, Winfried Neun.


M packages/misc/boolean.red => packages/misc/boolean.red +1 -1
@@ 26,7 26,7 @@ module boolean; % Propositional calculus support.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% A form in propositional calculus is transformed to a canonical DNF
% (disjuinct normal form) and then converted back to a or-not-form.

M packages/misc/cedit.red => packages/misc/cedit.red +1 -1
@@ 25,7 25,7 @@ module cedit; % REDUCE input string editor.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

create!-package('(cedit),'(util));


M packages/misc/changevr.red => packages/misc/changevr.red +1 -1
@@ 23,7 23,7 @@ module changevr;   % Facility to perform CHANGE of independent VARs.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

%*********************************************************************;
%                   -------------------------------                   ;

M packages/misc/coeff2.red => packages/misc/coeff2.red +1 -1
@@ 36,7 36,7 @@ module coeff2;
% POSSIBILITY OF SUCH DAMAGE.
%
%======================================================;
% $Id: $
% $Id$
% following functions are available in algebraic mode.
%------------------------------------------------------
% coeff2(F,X1,X2,...,XN):  

M packages/misc/comfac.red => packages/misc/comfac.red +1 -1
@@ 27,7 27,7 @@ module comfac;   % Multivariate common factor/content routines.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

symbolic inline procedure domain!-gcd(u,v); gcdn(u,v);


M packages/misc/compact.red => packages/misc/compact.red +1 -1
@@ 27,7 27,7 @@ module compact;  % Header module for compact code.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

create!-package('(compact mv mvmatch reddom compactf comfac),
                '(contrib compact));

M packages/misc/compactf.red => packages/misc/compactf.red +1 -1
@@ 27,7 27,7 @@ module compactf; % Algorithms for compacting algebraic expressions.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(frlis!* mv!-vars!*);


M packages/misc/dfpart.red => packages/misc/dfpart.red +1 -1
@@ 27,7 27,7 @@ module dfpart;  % support of generic differentiation.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

create!-package('(dfpart),'(contrib misc));


M packages/misc/ftr.red => packages/misc/ftr.red +1 -1
@@ 34,7 34,7 @@ module ftr;  % Various utilities for working with files and modules.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% NOTE: This module uses Standard Lisp global *RAISE as a fluid.


M packages/misc/lie.red => packages/misc/lie.red +1 -1
@@ 27,7 27,7 @@ module lie; % Header module for classification of Lie algebras.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

create!-package('(lie liendmc1 lie1234),'(contrib lie));


M packages/misc/lie1234.red => packages/misc/lie1234.red +1 -1
@@ 28,7 28,7 @@ module lie1234;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

algebraic;
operator liealg,comtab;

M packages/misc/liendmc1.red => packages/misc/liendmc1.red +1 -1
@@ 28,7 28,7 @@ module liendmc1; % N-dimensional Lie algebras with 1-dimensional derived
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

algebraic;
operator heisenberg,commutative,lie_algebra;

M packages/misc/limits.red => packages/misc/limits.red +1 -1
@@ 28,7 28,7 @@ module limits;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

%% Revised 23 Mar 1993.  Version 1.4.


M packages/misc/misc.red => packages/misc/misc.red +1 -1
@@ 23,7 23,7 @@ module misc;    % Miscellaneous algebraic code.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

create!-package('(misc),nil);


M packages/misc/mv.red => packages/misc/mv.red +1 -1
@@ 27,7 27,7 @@ module mv; % Operations on multivariate forms.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% These inlines are local to this module.


M packages/misc/mvmatch.red => packages/misc/mvmatch.red +1 -1
@@ 27,7 27,7 @@ module mvmatch;  % Side relation matching against expressions.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

symbolic procedure mv!-compact(u,v,w);
   % Compares a multivariate form u with a multivariate form template v

M packages/misc/odeex.red => packages/misc/odeex.red +1 -1
@@ 25,7 25,7 @@
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

algebraic;


M packages/misc/pf.red => packages/misc/pf.red +1 -1
@@ 25,7 25,7 @@ module pf;  % Compute partial fractions for an expression.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

COMMENT PF is the top level operator for finding the partial fractions
of an expression.  It returns the partial fractions as a list.

M packages/misc/randpoly.red => packages/misc/randpoly.red +1 -1
@@ 23,7 23,7 @@ module randpoly;  % A random (generalized) polynomial generator
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% F.J.Wright@Maths.QMW.ac.uk, 14 July 1994


M packages/misc/rcref.red => packages/misc/rcref.red +1 -1
@@ 26,7 26,7 @@ module rcref; % Cross reference program.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% Requires REDIO and SORT support.


M packages/misc/reacteqn.red => packages/misc/reacteqn.red +1 -1
@@ 29,7 29,7 @@ create!-package('(reacteqn),'(contrib misc));
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% Introduce operators for chemical equations.


M packages/misc/reddom.red => packages/misc/reddom.red +1 -1
@@ 27,7 27,7 @@ module reddom;   % Reduction of domain elements.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(mv!-vars!*);


M packages/misc/redio.red => packages/misc/redio.red +1 -1
@@ 25,7 25,7 @@ module redio; % General Purpose I/O package, sorting and positioning.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% Modified by: Anthony C. Hearn.


M packages/misc/reset.red => packages/misc/reset.red +1 -1
@@ 23,7 23,7 @@ module reset;  % Code to reset REDUCE to the initial state.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% John Fitch, Codemist Ltd 1988 <jpff@maths.bath.ac.uk>
% Given to the REDUCE community for what it is worth.

M packages/misc/rlfi.red => packages/misc/rlfi.red +1 -1
@@ 43,7 43,7 @@ module rlfi;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% History:
%     Ver. 1.01    17/11/1989   ******

M packages/misc/sets.red => packages/misc/sets.red +1 -1
@@ 26,7 26,7 @@ module sets;  % Operators for basic set theory.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

%% WARNING: This module patches mk!*sq.


M packages/mrvlimit/expon.red => packages/mrvlimit/expon.red +1 -1
@@ 29,7 29,7 @@
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

module expon;
load_package taylor;

M packages/mrvlimit/mrvlimit.red => packages/mrvlimit/mrvlimit.red +1 -1
@@ 35,7 35,7 @@
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

module mrvlimit;
create!-package ('(mrvlimit expon),nil);

M packages/ncpoly/ncdip.red => packages/ncpoly/ncdip.red +1 -1
@@ 25,7 25,7 @@ module ncdip; % Non-commutative distributive polynomials.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

symbolic procedure ncdsetup!* u;
 % U is a list of algebraic arguments:

M packages/ncpoly/ncenv.red => packages/ncpoly/ncenv.red +1 -1
@@ 31,7 31,7 @@ module ncenv; % Non-communtative polynomial ring environment.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

share ncpi!-brackets!*,ncpi!-comm!-rules!*,ncpi!-name!-rules!*;


M packages/ncpoly/ncfactor.red => packages/ncpoly/ncfactor.red +1 -1
@@ 25,7 25,7 @@ module ncfactor;  % factorization for non-commutative polynomials.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% version 1.4: using the commutative factorizer as preprocessor.
% Oct 2001: using "solve", hoping, that the user did not switch off 'varopt'.

M packages/ncpoly/ncgroeb.red => packages/ncpoly/ncgroeb.red +1 -1
@@ 25,7 25,7 @@ module ncgroeb; % Groebner for noncommutative one sided ideals.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% Following Carlo Traverso's model.


M packages/ncpoly/ncout.red => packages/ncpoly/ncout.red +1 -1
@@ 27,7 27,7 @@ module nout; % Output of noncom polynomials.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

symbolic procedure nc_compact u;
 % write a polynomial in factored form.

M packages/ncpoly/ncpoly.red => packages/ncpoly/ncpoly.red +1 -1
@@ 28,7 28,7 @@ module ncpoly; % Computing in non-commutative polynomial rings and
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

create!-package ('(ncpoly ncenv ncdip ncgroeb ncfactor ncout),
                 '(contrib ncpoly));

M packages/normform/froben.red => packages/normform/froben.red +1 -1
@@ 23,7 23,7 @@ module froben; % Computation of the frobenius normal form of a matrix.          
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% The function frobenius computes the Frobenius normal form F of a
% matrix A, the transformation matrix P and its inverse P^(-1).

M packages/normform/jordan.red => packages/normform/jordan.red +1 -1
@@ 23,7 23,7 @@ module jordan; % Computation of the Jordan normal form of a matrix.             
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

load!-package 'matrix;  %  Otherwise setmat can fail (letmtr undefined).


M packages/normform/jordsymb.red => packages/normform/jordsymb.red +1 -1
@@ 23,7 23,7 @@ module jordsymb; % Computation of the Jordan normal form of a matrix.           
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% The function jordansymbolic computes the Jordan normal form J of a
% matrix A, the transformation matrix P and its inverse P^(-1).

M packages/normform/matarg.red => packages/normform/matarg.red +1 -1
@@ 31,7 31,7 @@ module matarg;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

symbolic procedure mkmatrix(n,m);
   'mat . (for i:=1:n collect

M packages/normform/nestdom.red => packages/normform/nestdom.red +1 -1
@@ 29,7 29,7 @@ module nestdom; %
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

%%%%%%%%%
% Adaption to allow convertion between arnum and nested.

M packages/normform/normform.red => packages/normform/normform.red +1 -1
@@ 53,7 53,7 @@ module normform; % Package for the computation of several normal forms.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

create!-package('(normform jordan jordsymb ratjord froben matarg
                  smithex smithex1),'(contrib normform));

M packages/normform/ratjord.red => packages/normform/ratjord.red +1 -1
@@ 23,7 23,7 @@ module ratjord; %Computation of rational Jordan normal form of a matrix.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% The function ratjordan computes the rational Jordan normal form R of
% a matrix A, the transformation matrix P and its inverse P^(-1).

M packages/normform/smithex.red => packages/normform/smithex.red +1 -1
@@ 24,7 24,7 @@ module smithex; % Computation of the Smithex normal form of a matrix.           
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$
% The function smithex computes the Smith normal form S of an n by m
% rectangular matrix of univariate polynomials in x.
%

M packages/normform/smithex1.red => packages/normform/smithex1.red +1 -1
@@ 34,7 34,7 @@ module smithex1;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$




M packages/numeric/bounds.red => packages/numeric/bounds.red +1 -1
@@ 28,7 28,7 @@ module bounds;   % Upper and lower bound of a
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

put('bounds,'psopfn,'boundseval);
put('bounds!-rd,'psopfn,'boundsevalrd);

M packages/numeric/chebysh.red => packages/numeric/chebysh.red +1 -1
@@ 29,7 29,7 @@ module chebysh;  % Chebyshev approximation.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

put('chebyshev_fit,'psopfn,'(lambda(u)(chebysheveval u 'fit)));
put('chebyshev_eval,'psopfn,'(lambda(u)(chebysheveval u 'eval)));

M packages/numeric/gauss.red => packages/numeric/gauss.red +1 -1
@@ 27,7 27,7 @@ module gauss;  % Solve linear system.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*noequiv accuracy!* !*exptexpand);
global '(iterations!* !*trnumeric erfg!*);

M packages/numeric/newton.red => packages/numeric/newton.red +1 -1
@@ 39,7 39,7 @@ module newton;  % root finding with generalized Newton methods.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*noequiv accuracy!* !*invjacobi !*rounded);
global '(iterations!* !*trnumeric erfg!*);

M packages/numeric/numeric.red => packages/numeric/numeric.red +1 -1
@@ 29,7 29,7 @@ module numeric;  % Header module for the numeric package and
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

create!-package('(numeric numeval numsolve gauss newton steepstd
                  bounds numint numfit chebysh rungeku),

M packages/numeric/numeval.red => packages/numeric/numeval.red +1 -1
@@ 23,7 23,7 @@ module numeval; % numeric evaluation of algebraic expressions.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% Control of accuracy and precision.
%

M packages/numeric/numfit.red => packages/numeric/numfit.red +1 -1
@@ 27,7 27,7 @@ module numfit; % approximation of functions with least spares.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*noequiv accuracy!* singularities!*);
global '(iterations !*trnumeric numfit_count!*);

M packages/numeric/numint.red => packages/numeric/numint.red +1 -1
@@ 25,7 25,7 @@ module numint; % compute a numerical integral
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

     % Version March 1993


M packages/numeric/numsolve.red => packages/numeric/numsolve.red +1 -1
@@ 29,7 29,7 @@ module numsolve;  % root finding.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*noequiv accuracy!* !*exptexpand);
global '(iterations!* !*trnumeric erfg!*);

M packages/numeric/rungeku.red => packages/numeric/rungeku.red +1 -1
@@ 28,7 28,7 @@ module rungeku;  % Numeric solution of ODE's with Runge-Kutta.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*noequiv accuracy!*);
global '(iterations!* !*trnumeric);

M packages/numeric/steepstd.red => packages/numeric/steepstd.red +1 -1
@@ 28,7 28,7 @@ module steepstd;  % Optimization and root finding with method of
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*noequiv accuracy!*);
global '(iterations!* !*trnumeric);

M packages/occal/assume.red => packages/occal/assume.red +1 -1
@@ 25,7 25,7 @@ module assume;
% POSSIBILITY OF SUCH DAMAGE.


% $Id: $
% $Id$
symbolic procedure assume!-fact u;
  for each x in u do assume1 x;


M packages/occal/occal.red => packages/occal/occal.red +1 -1
@@ 25,7 25,7 @@ module occal;
% POSSIBILITY OF SUCH DAMAGE.


% $Id: $
% $Id$
create!-package('(occal
%                  oczusatz
%		  ocvars

M packages/occal/ocdispl.red => packages/occal/ocdispl.red +1 -1
@@ 25,7 25,7 @@ module display;
% POSSIBILITY OF SUCH DAMAGE.


% $Id: $
% $Id$
fluid '(!*oc!-dynamic!-variables!*
        !*oc!-control!-variables!*
        !*oc!-abbreviations!*

M packages/occal/ocinterf.red => packages/occal/ocinterf.red +1 -1
@@ 25,7 25,7 @@ module ocinterf;
% POSSIBILITY OF SUCH DAMAGE.


% $Id: $
% $Id$
fluid '(!*oc!-dynamic!-variables!*
        !*oc!-control!-variables!*
        !*oc!-abbreviations!*

M packages/occal/ocparse.red => packages/occal/ocparse.red +1 -1
@@ 25,7 25,7 @@ module oc_simple_read;
% POSSIBILITY OF SUCH DAMAGE.


% $Id: $
% $Id$
global '(!$eof!$ !$eol!$);

fluid '(ocparse!:curline);

M packages/occal/ocpriprg.red => packages/occal/ocpriprg.red +1 -1
@@ 25,7 25,7 @@ module ocpriprg;
% POSSIBILITY OF SUCH DAMAGE.


% $Id: $
% $Id$
fluid '(!*optdecs !*gentranopt);

fluid '(!*oc!-dynamic!-variables!*

M packages/occal/ocread.red => packages/occal/ocread.red +1 -1
@@ 25,7 25,7 @@ module ocread;
% POSSIBILITY OF SUCH DAMAGE.


% $Id: $
% $Id$
fluid '(!*oc!-dynamic!-variables!*
        !*oc!-control!-variables!*
        !*oc!-time!-variable!*

M packages/occal/ocstruct.red => packages/occal/ocstruct.red +1 -1
@@ 25,7 25,7 @@ module ocstruct;  % Alternate routines for structuring expressions.
% POSSIBILITY OF SUCH DAMAGE.


% $Id: $
% $Id$
fluid '(svar svarlis);

global '(varnam!*);

M packages/occal/ocvars.red => packages/occal/ocvars.red +1 -1
@@ 25,7 25,7 @@ module ocvars;
% POSSIBILITY OF SUCH DAMAGE.


% $Id: $
% $Id$
fluid '(!*oc!-dynamic!-variables!*
        !*oc!-control!-variables!*
        !*oc!-adjoint!-variables!*

M packages/occal/oczusatz.red => packages/occal/oczusatz.red +1 -1
@@ 25,7 25,7 @@ module oczusatz;
% POSSIBILITY OF SUCH DAMAGE.


% $Id: $
% $Id$
COMMENT Redefinitions and additions for REDUCE 3.5;

COMMENT redefinition of rnfactor!: -- not needed in future versions;

M packages/occal/regex.red => packages/occal/regex.red +1 -1
@@ 2,7 2,7 @@ module regex;

% Copyright 1994 by Rainer Schoepf and ZIB.

% $Id: $
% $Id$

COMMENT a regular expression matcher;


M packages/occal/signpref.red => packages/occal/signpref.red +1 -1
@@ 24,7 24,7 @@
% POSSIBILITY OF SUCH DAMAGE.

COMMENT
% $Id: $
% $Id$

The code in this file implements determination of signs of expressions;


M packages/odesolve/odeintfc.red => packages/odesolve/odeintfc.red +1 -1
@@ 23,7 23,7 @@ module odeintfc$  % Enhanced ODE solver interface
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% F.J.Wright@Maths.QMW.ac.uk, Time-stamp: <30 October 2000>


M packages/odesolve/odelin.red => packages/odesolve/odelin.red +1 -1
@@ 23,7 23,7 @@ module odelin$  % Simple linear ODE solver
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% F.J.Wright@Maths.QMW.ac.uk, Time-stamp: <14 September 2000>


M packages/odesolve/odenon1.red => packages/odesolve/odenon1.red +1 -1
@@ 23,7 23,7 @@ module odenon1$  % Special form nonlinear ODEs of order 1
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% F.J.Wright@maths.qmw.ac.uk, Time-stamp: <11 August 2001>


M packages/odesolve/odenonn.red => packages/odesolve/odenonn.red +1 -1
@@ 23,7 23,7 @@ module odenonn$  % Special form nonlinear ODEs of order > 1
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% F.J.Wright@maths.qmw.ac.uk, Time-stamp: <14 August 2001>


M packages/odesolve/odepatch.red => packages/odesolve/odepatch.red +1 -1
@@ 23,7 23,7 @@ module odepatch$  % Patches to standard REDUCE facilities
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% F.J.Wright@Maths.QMW.ac.uk, Time-stamp: <18 September 2000>


M packages/odesolve/odesolve.red => packages/odesolve/odesolve.red +1 -1
@@ 26,7 26,7 @@ module odesolve$  % Header for ordinary differential equation solver
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

algebraic odesolve_version := "ODESolve 1.065"$


M packages/odesolve/odespcfn.red => packages/odesolve/odespcfn.red +1 -1
@@ 23,7 23,7 @@ module odespcfn$  % Linear special function ODEs
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% F.J.Wright@Maths.QMW.ac.uk, Time-stamp: <14 September 2000>


M packages/odesolve/odetop.red => packages/odesolve/odetop.red +1 -1
@@ 24,7 24,7 @@ module odetop$  % Top level ODESolve routines, exact ODEs, general
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% F.J.Wright@maths.qmw.ac.uk, Time-stamp: <11 August 2001>


M packages/orthovec/orthovec.red => packages/orthovec/orthovec.red +1 -1
@@ 23,7 23,7 @@ module orthovec;  % 3-D vector calculus package.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

create!-package('(orthovec),'(contrib avector));


M packages/plot/gnuintfc.red => packages/plot/gnuintfc.red +1 -1
@@ 24,7 24,7 @@ module gnuintfc; % REDUCE-gnuplot interface.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% The file complements the (notionally) generic file "gnuplot.red" to
% provide system-specific interfaces between REDUCE and the gnuplot

M packages/plot/gnupldrv.red => packages/plot/gnupldrv.red +1 -1
@@ 26,7 26,7 @@ module gnupldrv; % main GNUPLOT driver.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(plotstyle!* !*trplot !*plotkeep);


M packages/plot/gnuplot.red => packages/plot/gnuplot.red +1 -1
@@ 23,7 23,7 @@ module gnuplot;  % REDUCE interface for gnuplot graphics.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

create!-package('(gnuplot gnuintfc gnupldrv),nil);


M packages/plot/parray.red => packages/plot/parray.red +1 -1
@@ 23,7 23,7 @@ module parray; % multidimensional arrays.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

symbolic procedure mk!-p!-array3(nx,ny,nz);
  <<for i:=0:nx do iputv(w,i,mk!-p!-array2(ny,nz)); w>>

M packages/plot/plot.red => packages/plot/plot.red +1 -1
@@ 27,7 27,7 @@ module plot; % device and driver independent plot services.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% Minor corrections by Winfried Neun (October 1995)


M packages/plot/plotexp2.red => packages/plot/plotexp2.red +1 -1
@@ 23,7 23,7 @@ module plotexp2; % Compute explicit 2-dim graph y=f(x);
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

symbolic procedure ploteval2x(x,y);
  begin scalar xlo,xhi,ylo,yhi,rx,ry,fp,fcn,fcns,pts;

M packages/plot/plotexp3.red => packages/plot/plotexp3.red +1 -1
@@ 25,7 25,7 @@ module plotexp3; % Computing surface z=f(x,y) with regular grid.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% A rectangular grid is encoded as list of rows.
% A row is a list of points.

M packages/plot/plotimp2.red => packages/plot/plotimp2.red +1 -1
@@ 25,7 25,7 @@ module plotimp2; % Implicit plot: compute the varity {x,y|f(x,y)=c}.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% data structure:
%

M packages/plot/plotimp3.red => packages/plot/plotimp3.red +1 -1
@@ 25,7 25,7 @@ module plotimp3; % Implicit plot: compute the varity {x,y,z|f(x,y,z)=0}.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% data structure: cubes.


M packages/plot/plotnum.red => packages/plot/plotnum.red +1 -1
@@ 23,7 23,7 @@ module plotnum; % Numeric evaluation of algebraic expressions.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(plotsynerr!* ploteval!-alist2!* !*plotoverflow);


M packages/plot/plotsynt.red => packages/plot/plotsynt.red +1 -1
@@ 25,7 25,7 @@ module plotsynt; % Support for the syntax of the plot command.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(bye!-actions!*);


M packages/plot/pltpara.red => packages/plot/pltpara.red +1 -1
@@ 30,7 30,7 @@ module pltpara; % Computing parametric curve.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

symbolic procedure plotevalpara1(x);
  begin scalar xlo,xhi,ylo,yhi,rx,ry,fcn,fcns,pts;

M packages/plot/turtle.red => packages/plot/turtle.red +1 -1
@@ 23,7 23,7 @@ module turtle;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% REDUCE implementation of Turtle Graphics


M packages/plot/xvect.red => packages/plot/xvect.red +1 -1
@@ 25,7 25,7 @@ module xvect; % Support for vectors with adaptive length.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% Note: CSL version uses 1024, PSL 128.


M packages/pm/pattdefn.red => packages/pm/pattdefn.red +1 -1
@@ 27,7 27,7 @@ module pattdefn; %Notational conveniences and low level routines for the
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid('(freevars op r p i upb
        identity expand acontract mcontract comb count symm ))$

M packages/pm/pattperm.red => packages/pm/pattperm.red +1 -1
@@ 25,7 25,7 @@ module pattperm;   % Rest of unify --- argument permutation, etc.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% When sym!-assoc is off, PM does not force normal generic variables to
% take more than one argument if a multi-generic symbol is present. This

M packages/pm/pm.red => packages/pm/pm.red +1 -1
@@ 25,7 25,7 @@ module pm;   % The PM Pattern Matcher.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

create!-package('(pm pmpatch pattdefn pmintrfc pattperm unify pmrules),
                '(contrib pm));

M packages/pm/pmintrfc.red => packages/pm/pmintrfc.red +1 -1
@@ 26,7 26,7 @@ module pmintrfc;  % Interface for pattern matcher.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% For some reason, this doesn't like being compiled as a module.


M packages/pm/pmpatch.red => packages/pm/pmpatch.red +1 -1
@@ 26,7 26,7 @@ module pmpatch; % Patches to make pattern matcher run in REDUCE 3.4.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% remflag('(evenp),'opfn);


M packages/pm/pmrules.red => packages/pm/pmrules.red +1 -1
@@ 25,7 25,7 @@ module pmrules;   % Basic rules for PM pattern matcher.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

algebraic;


M packages/pm/pmrules2.red => packages/pm/pmrules2.red +1 -1
@@ 23,7 23,7 @@ module pmrules2;  % More rules for PM Pattern matcher.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$
% NOTE:  This module is supplied for information purposes only.  It
%        still needs work to run properly in REDUCE 3.4.  However,
%        the examples are sufficiently useful that the module is

M packages/pm/unify.red => packages/pm/unify.red +1 -1
@@ 26,7 26,7 @@ module unify;   % Main part of unify code.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% The switch semantic, default on, controls use of semantic matching.


M packages/poly/compopr.red => packages/poly/compopr.red +1 -1
@@ 27,7 27,7 @@ module compopr;   % Operators on Complex Expressions.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*exp !*factor kord!*);


M packages/poly/conj.red => packages/poly/conj.red +1 -1
@@ 30,7 30,7 @@ module conj;  % Rationalize denoms of standard quotients by conjugate
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*algint !*rationalize !*structure dmode!* kord!* powlis!*);


M packages/poly/cpxrn.red => packages/poly/cpxrn.red +1 -1
@@ 27,7 27,7 @@ module cpxrn; % *** Support for Complex Rationals.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

COMMENT this module defines a complex rational as:


M packages/poly/decompos.red => packages/poly/decompos.red +1 -1
@@ 42,7 42,7 @@ module decompos; % Decomposition of polynomials f(x) = g(h(x)).
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

global '(decomposegensym!*);


M packages/poly/diff.red => packages/poly/diff.red +1 -1
@@ 29,7 29,7 @@ module diff; % Differentiation package.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*depend frlis!* powlis!* subfg!* wtl!* depl!*);


M packages/poly/dmode.red => packages/poly/dmode.red +1 -1
@@ 28,7 28,7 @@ module dmode; % Functions for defining and using poly domain modes.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

COMMENT
   *** Description of Definition Requirements for Domain arithmetics ***

M packages/poly/dmodeop.red => packages/poly/dmodeop.red +1 -1
@@ 27,7 27,7 @@ module dmodeop;  % Generic operators for domain arithmetic.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% internal dividef;


M packages/poly/exptf.red => packages/poly/exptf.red +1 -1
@@ 27,7 27,7 @@ module exptf; % Functions for raising canonical forms to a power.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*exp);


M packages/poly/facform.red => packages/poly/facform.red +1 -1
@@ 29,7 29,7 @@ module facform;  % Factored form representation for standard form polys.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% Integer factors?


M packages/poly/gcd.red => packages/poly/gcd.red +1 -1
@@ 27,7 27,7 @@ module gcd; % Greatest common divisor routines.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*exp !*anygcd !*ezgcd !*gcd !*heu!-gcd !*mcd asymplis!* dmode!*
        !*combineexpt);

M packages/poly/gint.red => packages/poly/gint.red +1 -1
@@ 25,7 25,7 @@ module gint;  % Support for gaussian integers (complex numbers).
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

global '(domainlist!*);


M packages/poly/heugcd.red => packages/poly/heugcd.red +1 -1
@@ 23,7 23,7 @@ module heugcd;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

%Authors: James Davenport & Julian Padget


M packages/poly/homog.red => packages/poly/homog.red +1 -1
@@ 26,7 26,7 @@ module homog; % Procedures for factorization of homogeneous polynomials.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$


symbolic procedure homogp s;

M packages/poly/horner.red => packages/poly/horner.red +1 -1
@@ 25,7 25,7 @@ module horner; % Convert an expression into a nested Horner product.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*exp !*div);


M packages/poly/interpol.red => packages/poly/interpol.red +1 -1
@@ 25,7 25,7 @@ module interpol; % polynomial interpolation (Aitken & Neville).
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

symbolic procedure interpol(fc,x,pts);
   % find a polynomial f(x) such that holds:

M packages/poly/kernel.red => packages/poly/kernel.red +1 -1
@@ 27,7 27,7 @@ module kernel;   % Functions for operations on kernels.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

global '(exlist!* kprops!*);


M packages/poly/kronf.red => packages/poly/kronf.red +1 -1
@@ 29,7 29,7 @@ module kronf;   % Kronecker factorization of univariate forms.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% exports linfacf,quadfacf;


M packages/poly/mksp.red => packages/poly/mksp.red +1 -1
@@ 27,7 27,7 @@ module mksp; % Functions for making standard powers.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% This module has a non-trivial use of ACONC.


M packages/poly/modular.red => packages/poly/modular.red +1 -1
@@ 27,7 27,7 @@ module modular; % *** Tables for modular integers ***.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

global '(domainlist!*);


M packages/poly/polrep.red => packages/poly/polrep.red +1 -1
@@ 27,7 27,7 @@ module polrep; % Arithmetic operations on standard forms and quotients.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*asymp!* !*exp !*factor !*gcd !*lcm !*mcd !*rationalize frlis!*
        !*roundall !*rounded !*sqfree !*sub2 asymplis!* dmode!* subfg!*

M packages/poly/poly.red => packages/poly/poly.red +1 -1
@@ 27,7 27,7 @@ module poly;  % Header module and low-level support for poly package.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

create!-package('(poly polrep polydiv quotf gcd exptf kernel mksp reord dmode
                 dmodeop rational rnelem gint cpxrn compopr modular

M packages/poly/polydiv.red => packages/poly/polydiv.red +1 -1
@@ 23,7 23,7 @@ module polydiv;  % Enhanced polynomial division.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$
% Francis Wright, 1995, 2020.

% Define (or redefine) the following polynomial division operators:

M packages/poly/polyop.red => packages/poly/polyop.red +1 -1
@@ 29,7 29,7 @@ module polyop; % Functions for algebraic mode operations on polynomials.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% This code has been modified to be consistent with the rules


M packages/poly/primfac.red => packages/poly/primfac.red +1 -1
@@ 27,7 27,7 @@ module primfac;   % Primitive square free polynomial factorization.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*intfac !*surds dmode!* intvar kernlist!* knowndiscrimsign);


M packages/poly/quotf.red => packages/poly/quotf.red +1 -1
@@ 25,7 25,7 @@ module quotfx;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

COMMENT in many calls to QUOTF, the result is not checked for NIL
because the caller is sure there will be no remainder, e.g. if the

M packages/poly/rational.red => packages/poly/rational.red +1 -1
@@ 27,7 27,7 @@ module rational; % *** Tables for rational numbers ***.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

global '(domainlist!*);


M packages/poly/reord.red => packages/poly/reord.red +1 -1
@@ 27,7 27,7 @@ module reord; % Functions for reordering standard forms.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(alglist!* kord!* ncmp!*);


M packages/poly/rnelem.red => packages/poly/rnelem.red +1 -1
@@ 23,7 23,7 @@ module rnelem;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*rounded);


M packages/poly/specfac.red => packages/poly/specfac.red +1 -1
@@ 27,7 27,7 @@ module specfac;   % Splitting of low degree polynomials.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*keepsqrts !*sub2 !*surds knowndiscrimsign kord!* zlist);


M packages/poly/subs2q.red => packages/poly/subs2q.red +1 -1
@@ 27,7 27,7 @@ module subs2q;  % Routines for substituting for powers.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*exp !*mcd !*structure !*sub2 alglist!* dmode!* frlis!*);


M packages/poly/subs3q.red => packages/poly/subs3q.red +1 -1
@@ 27,7 27,7 @@ module subs3q; % Routines for matching products.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*mcd powlis1!* !*sub2 subfg!*);


M packages/poly/subs4q.red => packages/poly/subs4q.red +1 -1
@@ 28,7 28,7 @@ module subs4q; % Routines for matching quotients.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

symbolic procedure subs4q u;
   % U is a standard quotient,

M packages/poly/tdconv.red => packages/poly/tdconv.red +1 -1
@@ 27,7 27,7 @@ module tdconv; % Procedures for conversion of internal & external
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$
symbolic procedure setunion(l1,l2);
   % Union of two sets.
      if null l2 then l1

M packages/qsum/qsum.red => packages/qsum/qsum.red +1 -1
@@ 26,7 26,7 @@ module qsum; % summation of q-hypergeometric terms
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

algebraic;


M packages/rataprx/cfutil.red => packages/rataprx/cfutil.red +1 -1
@@ 25,7 25,7 @@ module cfutil;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% Various utilities for continued fractions
% A. Barnes, February 2019

M packages/rataprx/contfr.red => packages/rataprx/contfr.red +1 -1
@@ 31,7 31,7 @@ module contfr;  % Simultaneous approximation of a real number by a
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$
symbolic procedure contfract2(u, inexact, b1, n);
 % compute continued fraction until the numerator exceeds b1
 % or the approximation has reached system precision

M packages/rataprx/contfrac.red => packages/rataprx/contfrac.red +1 -1
@@ 25,7 25,7 @@ module contfrac;  % Continued fractions.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% Date:   August 1995.
% Substantial revisions and additions by Alan Barnes, March 2019.

M packages/rataprx/decrep.red => packages/rataprx/decrep.red +1 -1
@@ 27,7 27,7 @@ module decrep;  % Periodic Decimal Representation.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$
% Date:   April 2019.

symbolic; procedure digits2num(x, base);

M packages/rataprx/pade.red => packages/rataprx/pade.red +1 -1
@@ 25,7 25,7 @@ module pade;  % Pade' Approximations.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% Date: 15/6/95.
% General code tidy-up by Alan Barnes, march 2019

M packages/rataprx/primitive.red => packages/rataprx/primitive.red +1 -1
@@ 23,7 23,7 @@ module primitive; % Include primitive module alterations to solve.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*cramer bareiss!-step!-size!*);


M packages/rataprx/rataprx.red => packages/rataprx/rataprx.red +1 -1
@@ 27,7 27,7 @@ module rataprx;  % Rational Approximations Package.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% Send questions or comments to Winfried Neun (neun@zib.de), please.


M packages/ratint/convert.red => packages/ratint/convert.red +1 -1
@@ 22,7 22,7 @@
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

%ammend the output of ratint, converting complex logs to real arctans, and
%providing alternative forms for the answer

M packages/ratint/ratint.red => packages/ratint/ratint.red +1 -1
@@ 32,7 32,7 @@
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$
create!-package('(ratint convert),nil);

global '(traceratint!*); % for the tracing facility

M packages/reduce4/block4.red => packages/reduce4/block4.red +1 -1
@@ 27,7 27,7 @@ module block4;   % REDUCE 4 block statement and related operators.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(blockrestype!*);


M packages/reduce4/forall4.red => packages/reduce4/forall4.red +1 -1
@@ 25,7 25,7 @@ module forall4;  % Support for "let" etc. statements in REDUCE 4.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% For the time being, we are defaulting to the REDUCE 3 model until we
% decide how such rules should be handled.

M packages/reduce4/form4.red => packages/reduce4/form4.red +1 -1
@@ 25,7 25,7 @@ module form4;   % Type analysis for REDUCE 4.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*specification !*specification_reduce !*generate_retracts
        !*instantiate);

M packages/reduce4/forstat4.red => packages/reduce4/forstat4.red +1 -1
@@ 27,7 27,7 @@ module forstat4;   % Definition of REDUCE 4 FOR loops.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

put('for,'n_formfn,'n_formfor);


M packages/reduce4/matrix4.red => packages/reduce4/matrix4.red +1 -1
@@ 23,7 23,7 @@ module matrices;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% Almost generic definition (i.e. independent of datastructure of
% elements). With this it should be possible to have matrices

M packages/reduce4/package4.red => packages/reduce4/package4.red +1 -1
@@ 25,7 25,7 @@ module package4;   % Package support for REDUCE 4.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

remd 'package; % Don't interfere with existing.


M packages/reduce4/proc4.red => packages/reduce4/proc4.red +1 -1
@@ 27,7 27,7 @@ module proc4;  % Support for REDUCE 4 procedures.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*specification_reduce !*specification);


M packages/reduce4/ranks.red => packages/reduce4/ranks.red +1 -1
@@ 25,7 25,7 @@ module ranks;  % Rank operations.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(zero);


M packages/reduce4/rankstat.red => packages/reduce4/rankstat.red +1 -1
@@ 25,7 25,7 @@ module rankstat;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(curmodule!*);


M packages/reduce4/reduce4.red => packages/reduce4/reduce4.red +1 -1
@@ 27,7 27,7 @@ module reduce4; % Support for REDUCE 4 interface to REDUCE 3.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

create!-package('(reduce4 form4 block4 proc4 forstat4 struct4 reval4
                  simp4 forall4 rankstat ranks tower package4),

M packages/reduce4/reval4.red => packages/reduce4/reval4.red +1 -1
@@ 25,7 25,7 @@ module reval4;   % Support for REDUCE 4 evaluation.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% The following selectors and constructors could be inlines.


M packages/reduce4/simp4.red => packages/reduce4/simp4.red +1 -1
@@ 25,7 25,7 @@ module simp4;   % REDUCE 4 extensions for simplification.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(zero);


M packages/reduce4/struct4.red => packages/reduce4/struct4.red +1 -1
@@ 25,7 25,7 @@ module structure; % REDUCE 4 support for indexed structures.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% These definitions are very careful about bounds checking. Appropriate
% optimizations in a given system might really speed things up.

M packages/reduce4/table1.red => packages/reduce4/table1.red +1 -1
@@ 25,7 25,7 @@ module table1;
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(zero);


M packages/reduce4/table2.red => packages/reduce4/table2.red +1 -1
@@ 29,7 29,7 @@
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$
ranks print u : {bool} -> bool,
      print u : {list} -> list,
      print u : {noval} -> noval,

M packages/reduce4/table3.red => packages/reduce4/table3.red +1 -1
@@ 22,7 22,7 @@
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$
install getd(u:variable):generic -> getd1;

install get(u:variable,v:variable):generic -> get;

M packages/reduce4/tables.red => packages/reduce4/tables.red +1 -1
@@ 27,7 27,7 @@ module tables;  % Specific tables for REDUCE 4.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% These modules are separated from those in reduce4, since the latter
% are needed to compile the former.

M packages/reduce4/tower.red => packages/reduce4/tower.red +1 -1
@@ 23,7 23,7 @@ module tower;    % Set up type hierarchy.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*protfg curr_pckg!*);


M packages/residue/residue.red => packages/residue/residue.red +1 -1
@@ 26,7 26,7 @@ module residue; % Calculation of residues
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% needs taylor package for execution.


M packages/rlisp/array.red => packages/rlisp/array.red +1 -1
@@ 26,7 26,7 @@ module array; % Array statement.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% These definitions are very careful about bounds checking. Appropriate
% optimizations in a given system might really speed things up.

M packages/rlisp/block.red => packages/rlisp/block.red +1 -1
@@ 27,7 27,7 @@ module block;   % Block statement and related operators.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*blockp !*novarmsg !*rlisp88);


M packages/rlisp/form.red => packages/rlisp/form.red +1 -1
@@ 29,7 29,7 @@ module form;  % Performs a mode analysis of parsed forms.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$
fluid '(!*!*a2sfn !*comp !*cref !*defn !*mode !*reduce4 !*rlisp88
        current!-modulus fname!* ftype!* !*strict_argcount
        !*argnochk);

M packages/rlisp/forstat.red => packages/rlisp/forstat.red +1 -1
@@ 27,7 27,7 @@ module forstat;   % Definition of REDUCE FOR loops.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*blockp !*fastfor !*modular);


M packages/rlisp/infix.red => packages/rlisp/infix.red +1 -1
@@ 27,7 27,7 @@ module infix; % Functions for introducing new infix operators.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*mode);


M packages/rlisp/inter.red => packages/rlisp/inter.red +1 -1
@@ 27,7 27,7 @@ module inter; % Functions for interactive support.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*echo !*int trap!-time!* ifl!* curline!*);


M packages/rlisp/io.red => packages/rlisp/io.red +1 -1
@@ 27,7 27,7 @@ module io; % Functions for handling input and output of files.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*echo !*int !*reduce4 semic!* ifl!* curline!*);


M packages/rlisp/list.red => packages/rlisp/list.red +1 -1
@@ 27,7 27,7 @@ module list; % Define a list as a list of expressions in curly brackets.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(orig!* posn!*);


M packages/rlisp/loops.red => packages/rlisp/loops.red +1 -1
@@ 27,7 27,7 @@ module loops;  % Looping forms other than the FOR statement.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*blockp);


M packages/rlisp/lpri.red => packages/rlisp/lpri.red +1 -1
@@ 27,7 27,7 @@ module lpri; % Functions for printing diagnostic and error messages.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*defn !*echo !*fort !*int !*msg !*nat !*protfg errmsg!* curline!*);


M packages/rlisp/mkset.red => packages/rlisp/mkset.red +1 -1
@@ 26,7 26,7 @@ module mkset;  % Define a set as a list of expressions enclosed by
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(orig!* posn!*);


M packages/rlisp/module.red => packages/rlisp/module.red +1 -1
@@ 27,7 27,7 @@
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% The code here is loaded rather early in the bootstrap process, and so
% is processed by a provisional rather than the final version of the

M packages/rlisp/newtok.red => packages/rlisp/newtok.red +1 -1
@@ 27,7 27,7 @@ module newtok;  % Functions for introducing infix tokens to the system.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*msg !*redeflg!*);


M packages/rlisp/parser.red => packages/rlisp/parser.red +1 -1
@@ 27,7 27,7 @@ module parser;  % Functions for parsing RLISP expressions.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*backtrace);


M packages/rlisp/proc.red => packages/rlisp/proc.red +1 -1
@@ 27,7 27,7 @@ module proc;   % Procedure statement.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*argnochk !*noinlines !*loginlines !*redeflg!* fname!* ftype!*
        !*strict_argcount !*comp ifl!* curline!*);

M packages/rlisp/rintro-txt.red => packages/rlisp/rintro-txt.red +1 -1
@@ 25,7 25,7 @@ module rintro!-txt;  % Description of non-local variables used in RLISP.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% These must be initialized at the top level of the program.


M packages/rlisp/rlisp.red => packages/rlisp/rlisp.red +1 -1
@@ 25,7 25,7 @@
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

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


M packages/rlisp/rsupport.red => packages/rlisp/rsupport.red +1 -1
@@ 27,7 27,7 @@ module rsupport;   % Basic functions needed to support RLISP and REDUCE.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*backtrace !*comp);


M packages/rlisp/slfns.red => packages/rlisp/slfns.red +1 -1
@@ 25,7 25,7 @@ module slfns;  % Complete list of Standard LISP functions.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*argnochk);
global '(slfns!*);

M packages/rlisp/smacro.red => packages/rlisp/smacro.red +1 -1
@@ 27,7 27,7 @@ module smacro;  % Support for SMACRO expansion
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

%
% This function expands an  invocation of a SMACRO.

M packages/rlisp/statmisc.red => packages/rlisp/statmisc.red +1 -1
@@ 27,7 27,7 @@ module write;  % Miscellaneous statement definitions.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$
% ***** DEFINE STATEMENT *****

remprop('define,'stat);

M packages/rlisp/superv.red => packages/rlisp/superv.red +1 -1
@@ 29,7 29,7 @@ module superv; % REDUCE supervisory functions.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*debug
        !*defn

M packages/rlisp/switch.red => packages/rlisp/switch.red +1 -1
@@ 27,7 27,7 @@ module switch;  % Support for switches and ON and OFF statements.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

global '(!*switchcheck switchlist!* switchtree!* switchstring!*);


M packages/rlisp/tok.red => packages/rlisp/tok.red +1 -1
@@ 28,7 28,7 @@ module tok; % Identifier and reserved character reading.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$
% Parts of the coding style here look antique and ugly with lots of
% goto statements. The notations for  "for" and "while" loops are not
% used here.

M packages/rlisp/vector.red => packages/rlisp/vector.red +1 -1
@@ 27,7 27,7 @@ module vector; % Definition of RLISP vectors and operations on them.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*fastvector);


M packages/rlisp/where.red => packages/rlisp/where.red +1 -1
@@ 27,7 27,7 @@ module where;  % Support for a where construct.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% global '(fixedpreclis!*);


M packages/rlisp/xmodule.red => packages/rlisp/xmodule.red +1 -1
@@ 27,7 27,7 @@ module xmodule; % Support for "exemplary" module use.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

remprop('xmodule,'newnam);


M packages/rlisp/xread.red => packages/rlisp/xread.red +1 -1
@@ 27,7 27,7 @@ module xread; % Routines for parsing RLISP input.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% NOTE: For bootstrapping purposes, this file should not have any tab
%       characters in it.

M packages/rlisp88/bquote.red => packages/rlisp88/bquote.red +1 -1
@@ 27,7 27,7 @@ module bquote;   % Support for backquote.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

% Lisp parsing case.


M packages/rlisp88/for88.red => packages/rlisp88/for88.red +1 -1
@@ 25,7 25,7 @@ module for88;   % Definition of Rlisp88 FOR statement.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*fastfor binops!* loopdelimslist!*);


M packages/rlisp88/inspect.red => packages/rlisp88/inspect.red +1 -1
@@ 23,7 23,7 @@ module inspect;   % Rlisp88 Code inspector.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

%  Author: Jed Marti.


M packages/rlisp88/loops88.red => packages/rlisp88/loops88.red +1 -1
@@ 25,7 25,7 @@ module loops88;  % Rlisp88 looping forms other than the FOR statement.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $
% $Id$

fluid '(!*blockp loopdelimslist!*);


M packages/rlisp88/mstruct.red => packages/rlisp88/mstruct.red +1 -1
@@ 27,7 27,7 @@ module mstruct;  % A tiny structure package for Standard Lisp.
% POSSIBILITY OF SUCH DAMAGE.
%

% $Id: $