[Maxima-commits] Maxima, A Computer Algebra System branch master updated. a8a130b4d75ffcdfe885366d0bc741eea02999c3

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

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Maxima, A Computer Algebra System".

The branch, master has been updated
       via  a8a130b4d75ffcdfe885366d0bc741eea02999c3 (commit)
      from  63b97e30f69928adac4622e71fe34325448bec9e (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit a8a130b4d75ffcdfe885366d0bc741eea02999c3
Author: crategus <cra...@us...>
Date:   Sat Nov 12 18:36:29 2011 +0100

    Reimplementing the check for a $bfloat in *fpexp
    
    The function is called with an argument, which already has been
    converted to a bigfloat. The implementation calls $bfloat a second
    time for numbers and for expressions. It is not necessary to do this
    for expressions. The second call is only necessary for bigfloat
    numbers to adjust the precision of the number. This can be done with a
    call to bigfloatp too.

diff --git a/src/float.lisp b/src/float.lisp
index 4fd21c4..b881f47 100644
--- a/src/float.lisp
+++ b/src/float.lisp
@@ -1230,8 +1230,8 @@ One extra decimal digit in actual representation for rounding purposes.")
 
 (defun *fpexp (a)
   (fpend (let ((fpprec (+ 8. fpprec)))
-	   (if ($bfloatp (setq a ($bfloat a)))
-	       (fpexp (cdr a))
+           (if ($bfloatp a)
+               (fpexp (cdr (bigfloatp a)))
 	       (list '(mexpt) '$%e a)))))
 
 (defun *fpsin (a fl)

-----------------------------------------------------------------------

Summary of changes:
 src/float.lisp |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)


hooks/post-receive
-- 
Maxima, A Computer Algebra System