File r38/packages/alg/alg.red artifact fb5350dfcb part of check-in aacf49ddfa

module alg;  % Header module for alg package.

% Author: Anthony C. Hearn.

create!-package('(alg alg!-form intro general farith numsup genmod
                  random smallmod zfactor sort reval algbool simp
		  exptchk simplog logsort sub order forall eqn rmsubs
		  algdcl opmtch prep extout depend str coeff weight
		  linop elem showrule nestrad maxmin nssimp part map),
                nil);

flag('(alg),'core_package);

put('alglist!*,'initvalue!*,'(cons nil nil));

% Some renamings so that no user operations in algebraic mode need an
% asterisk.

deflist('((eval_mode !*mode)
	  (cardno!* card_no)
	  (fortwidth!* fort_width)
	  (high_pow hipow!*)
	  (low_pow lowpow!*)
	  (root_multiplicities multiplicities!*)),
	'newnam);

endmodule;

end;