[Maxima-commits] CVS: maxima/src csimp.lisp, 1.19, 1.20 defint.lisp, 1.67, 1.68

[Dieter K. <cra...@us...>]

Update of /cvsroot/maxima/maxima/src
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv32666/src

Modified Files:
	csimp.lisp defint.lisp 
Log Message:
The variable $intanalysis is used only in the file defint.lisp.

Cutting out the definition and declaration from csimp.lisp.
Adding the declaration as a defmvar in defint.lisp.

The default value of $intanalysis is T.

No problems with the testsuite.


Index: csimp.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/csimp.lisp,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -d -r1.19 -r1.20
--- csimp.lisp	25 Jul 2009 14:21:32 -0000	1.19
+++ csimp.lisp	14 Nov 2009 20:51:01 -0000	1.20
@@ -20,12 +20,12 @@
 (load-macsyma-macros rzmac)
 
 (declare-top (special $nointegrate $lhospitallim $tlimswitch $limsubst
-		      $abconvtest complex-limit plogabs $intanalysis))
+		      $abconvtest complex-limit plogabs))
 
 
 (setq $demoivre nil rsn* nil $nointegrate nil $lhospitallim 4
       $tlimswitch t $limsubst nil $abconvtest nil
-      complex-limit nil plogabs nil $intanalysis t)
+      complex-limit nil plogabs nil)
 
 (defmvar %p%i '((mtimes) $%i $%pi))
 (defmvar fourth%pi '((mtimes) ((rat simp) 1 4) $%pi))

Index: defint.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/defint.lisp,v
retrieving revision 1.67
retrieving revision 1.68
diff -u -d -r1.67 -r1.68
--- defint.lisp	13 Nov 2009 15:18:15 -0000	1.67
+++ defint.lisp	14 Nov 2009 20:51:01 -0000	1.68
@@ -164,6 +164,10 @@
        (setq real-infinities '($inf $minf))
        (setq infinitesimals '($zeroa $zerob))))
 
+(defmvar $intanalysis t
+  "When @code{true}, definite integration tries to find poles in the integrand 
+in the interval of integration.")
+
 (defmvar defintdebug () "If true Defint prints out debugging information")
 
 (defmvar integerl nil