From: Stavros M. <mac...@us...> - 2007-07-23 01:18:49
|
Update of /cvsroot/maxima/maxima/src In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv30929 Modified Files: specfn.lisp Log Message: Correct indentation Index: specfn.lisp =================================================================== RCS file: /cvsroot/maxima/maxima/src/specfn.lisp,v retrieving revision 1.18 retrieving revision 1.19 diff -u -d -r1.18 -r1.19 --- specfn.lisp 29 Mar 2007 18:17:33 -0000 1.18 +++ specfn.lisp 23 Jul 2007 01:18:42 -0000 1.19 @@ -98,8 +98,8 @@ (- (/ (cl:expt (coerce pi 'double-float) 2) 6)))) ((< x 1) (slatec:dspenc x)) - ((= x 1) - (/ (cl:expt (coerce pi 'double-float) 2) 6)) + ((= x 1) + (/ (cl:expt (coerce pi 'double-float) 2) 6)) (t ;; li[2](x) = -li[2](1/x)-log(-x)^2/2-%pi^2/6 (- (+ (li2 (/ x)) |