[Maxima-commits] CVS: maxima/share/simplification facex1.mac, 1.5, 1.6 stopex.mac, 1.5, 1.6

[Douglas <dt...@us...>]

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 */