[Maxima-commits] CVS: maxima/src limit.lisp,1.102,1.103

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

Update of /cvsroot/maxima/maxima/src
In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv804/src

Modified Files:
	limit.lisp 
Log Message:
The variable silent-taylor-flag is not declared to be special in this file. Do it at the related places.

No problems with the testsuite and share_testsuite.


Index: limit.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/limit.lisp,v
retrieving revision 1.102
retrieving revision 1.103
diff -u -d -r1.102 -r1.103
--- limit.lisp	2 Oct 2010 17:22:09 -0000	1.102
+++ limit.lisp	4 Oct 2010 21:38:22 -0000	1.103
@@ -215,7 +215,8 @@
 		       (or (real-epsilonp val)		;; if direction of limit specified
 			   (real-infinityp val)))
 		  (setq ans (catch 'taylor-catch
-			      (let ((silent-taylor-flag t))
+		              (let ((silent-taylor-flag t))
+		                (declare (special silent-taylor-flag))       
 				(gruntz1 exp var val)))))
 
 	      ;; try taylor series expansion if simple limit didn't work
@@ -3158,6 +3159,7 @@
     (setq ans
           (catch 'taylor-catch
             (let ((silent-taylor-flag t))
+              (declare (special silent-taylor-flag))
               (gruntz1 expr var val dir))))
      (if (or (null ans) (eq ans t))
          (if dir