From: Dieter K. <cra...@us...> - 2009-07-05 14:58:28
|
Update of /cvsroot/maxima/maxima/src In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv19153 Modified Files: expintegral.lisp Log Message: Correcting a typo. It is $nz and not $ nz. Index: expintegral.lisp =================================================================== RCS file: /cvsroot/maxima/maxima/src/expintegral.lisp,v retrieving revision 1.20 retrieving revision 1.21 diff -u -d -r1.20 -r1.21 --- expintegral.lisp 7 Jun 2009 14:44:29 -0000 1.20 +++ expintegral.lisp 5 Jul 2009 14:58:23 -0000 1.21 @@ -246,8 +246,11 @@ ((eq sgn '$pos) ;; we handle the special case E[v](0) = 1/(v-1), for realpart(v)>1 (inv (add order -1))) - ((member sgn '($neg $ nz $zero)) - (simp-domain-error (intl:gettext "expintegral_e: expintegral_e(~:M,~:M) is undefined.") order arg)) + ((member sgn '($neg $nz $zero)) + (simp-domain-error + (intl:gettext + "expintegral_e: expintegral_e(~:M,~:M) is undefined.") + order arg)) (t (eqtest (list '(%expintegral_e) order arg) expr))))) ((or (and (symbolp order) (member order infinities :test #'eq)) |