From: Douglas <dt...@us...> - 2006-09-13 23:15:38
|
Update of /cvsroot/maxima/maxima/share/simplification In directory sc8-pr-cvs7.sourceforge.net:/tmp/cvs-serv8445/share/simplification Modified Files: facex1.mac stopex.mac Log Message: * Further symbol case changes to support non-standard CL variants such as the Scieneer CL lowercase mode and the ACL modern mode. Index: facex1.mac =================================================================== RCS file: /cvsroot/maxima/maxima/share/simplification/facex1.mac,v retrieving revision 1.5 retrieving revision 1.6 diff -u -d -r1.5 -r1.6 --- facex1.mac 25 Nov 2004 01:46:05 -0000 1.5 +++ facex1.mac 13 Sep 2006 23:15:32 -0000 1.6 @@ -5,10 +5,10 @@ Split off from FACEXP 15 */ /* -EVAL_WHEN([TRANSLATE,BATCH,LOADFILE], - IF GET('FACEXP,'VERSION)=FALSE - THEN (LOAD('[FACEXP,FASL]), - LOAD('[GNDECL,FASL])))$ +eval_when([translate,batch,loadfile], + if get('facexp,'version)=false + then (load('[facexp,fasl]), + load('[gndecl,fasl])))$ */ eval_when(translate, transcompile:true, Index: stopex.mac =================================================================== RCS file: /cvsroot/maxima/maxima/share/simplification/stopex.mac,v retrieving revision 1.5 retrieving revision 1.6 diff -u -d -r1.5 -r1.6 --- stopex.mac 25 Nov 2004 01:46:05 -0000 1.5 +++ stopex.mac 13 Sep 2006 23:15:33 -0000 1.6 @@ -15,9 +15,9 @@ put('stopex,15,'diageval_version)$ /* -EVAL_WHEN([BATCH,LOADFILE], - IF GET('GNAUTO,'DIAGEVAL_VERSION)=FALSE - THEN LOAD('[GNAUTO,FASL,DSK,DGVAL]))$ +eval_when([batch,loadfile], + if get('gnauto,'diageval_version)=false + then load('[gnauto,fasl,dsk,dgval]))$ */ /* GNU Maxima */ |