[Maxima-commits] CVS: maxima/src gamma.lisp,1.10,1.11

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

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

Modified Files:
	gamma.lisp 
Log Message:
Removing unused variable gm from the function gamma-incomplete. CLISP 2.44 gives a warning.

Index: gamma.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/gamma.lisp,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- gamma.lisp	9 Oct 2008 19:48:17 -0000	1.10
+++ gamma.lisp	12 Oct 2008 16:06:43 -0000	1.11
@@ -576,8 +576,7 @@
        (do* ((i 1 (+ i 1))
              (ap a (+ ap 1.0))
              (del (/ 1.0 a) (* del (/ x ap)))
-             (sum del (+ sum del))
-             (gm (gamma-lanczos (complex (realpart a) (imagpart a)))))
+             (sum del (+ sum del)))
             ((> i gm-maxit)
              (merror "Series expansion failed in `gamma_incomplete"))
          (when *debug-gamma*