Artifact c6f924b6bcb32272cf424e5f35307686d95fa2a54620155c5ec8f7efc2dc26aa:

• Executable file r38/util/tstpckge.dat — part of check-in [f2fda60abd] at 2011-09-02 18:13:33 on branch master — Some historical releases purely for archival purposes

  git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/trunk/historical@1375 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 882) [annotate] [blame] [check-ins using] [more...]

on errcont;   % So that computation continues after an error.

symbolic <<linelength 80; share packge;
	   packge := intern compress explode2 getenv "package";
	   load!-package packge; in "$reduce/package.red";
	   if get(packge,'folder) then packge := get(packge,'folder);
	   if 'psl memq lispsystem!* then packge := id2string packge;
	   packge := concat(getenv "reduce",concat("/packages/",
	     concat(packge,concat("/",concat(getenv "package",".tst")))));
	   !*_xxx_!* := time(); !*_yyy_!* := gctime(); nil>>$

in packge;

% The +- construct in the following is required to finesse Orthovec's
% renaming of -.

symbolic <<terpri(); terpri(); prin2 "Time for test: ";
	   prin2 (time()+-!*_xxx_!*); prin2 " ms";
	   if (!*_yyy_!* := gctime()+-!*_yyy_!*)>0
	     then <<prin2 ", plus GC time: "; prin2 !*_yyy_!*;
		    prin2 " ms"; terpri()>>>>$

bye;