[Maxima-commits] CVS: maxima/src limit.lisp,1.99,1.100

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

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

Modified Files:
	limit.lisp 
Log Message:
Binding $logexpand to T in gruntz1. gruntz loops endlessly for some examples, if $logexpand has the value NIL.

Related bug report:
ID: 3025038 - gruntz needs logexpand:true

No problems with the testsuite and share_testsuite.


Index: limit.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/limit.lisp,v
retrieving revision 1.99
retrieving revision 1.100
diff -u -d -r1.99 -r1.100
--- limit.lisp	5 Jun 2010 20:03:42 -0000	1.99
+++ limit.lisp	4 Jul 2010 11:57:53 -0000	1.100
@@ -3168,7 +3168,8 @@
 (defun gruntz1 (exp var val &rest rest)
   (cond ((> (length rest) 1)
 	 (merror (intl:gettext "gruntz: too many arguments; expected just 3 or 4"))))
-  (let ((newvar (gensym "w"))
+  (let (($logexpand t) ; gruntz needs $logexpand T
+        (newvar (gensym "w"))
 	(dir (car rest)))
     (cond ((eq val '$inf)
 	   (setq newvar var))