[Maxima-commits] CVS: maxima/src specfn.lisp, 1.21, 1.22
- Subject: [Maxima-commits] CVS: maxima/src specfn.lisp, 1.21, 1.22
- From: Raymond Toy (RT/EUS)
- Date: Tue, 19 Feb 2008 12:49:33 -0500
Barton Willis wrote:
> Update of /cvsroot/maxima/maxima/src
> In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv21460/src
>
> Modified Files:
> specfn.lisp
> Log Message:
> o Declare lambertw to be complex so that imagpart(lambertw(x + %i)) --/--> 0.
> o Add gradef for lambertw.
>
> Index: specfn.lisp
> ===================================================================
> RCS file: /cvsroot/maxima/maxima/src/specfn.lisp,v
> retrieving revision 1.21
> retrieving revision 1.22
> diff -u -d -r1.21 -r1.22
> --- specfn.lisp 19 Feb 2008 00:13:04 -0000 1.21
> +++ specfn.lisp 19 Feb 2008 03:07:06 -0000 1.22
> @@ -424,6 +424,11 @@
>
> ;;; Lambert W
>
> +(setf (get '$lambertw 'grad)
> + '((x) ((mtimes) ((mexpt) x -1) (($lambertw) x) ((mexpt) ((mplus) 1 (($lambertw) x)) -1))))
> +
> +(mfuncall '$declare '$lambertw '$complex)
Am I doing something wrong? I'm unable to compile maxima because of the
mfuncall above. Removing it allows me to compile.
Ray