[Maxima-commits] [git] Maxima CAS branch, master, updated. branch-5_31-base-69-g02f3a47

[Robert D. <rob...@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 CAS".

The branch, master has been updated
       via  02f3a4746f6e8d4f9b78aecd70bce18980aa0c8d (commit)
      from  1ed5d37f5db5d5dafec70ce7cb51002967667d6e (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 02f3a4746f6e8d4f9b78aecd70bce18980aa0c8d
Author: Robert Dodier <rob...@us...>
Date:   Mon Sep 30 20:58:46 2013 -0700

    GCL parses float literals 1e-6 and 1e-7 incorrectly, so replace
    them with equivalent (float <rational>) expressions (for GCL only).
    Reported to GCL project: https://savannah.gnu.org/bugs/index.php?40154

diff --git a/share/draw/gnuplot.lisp b/share/draw/gnuplot.lisp
index 19b6418..b116ff9 100644
--- a/share/draw/gnuplot.lisp
+++ b/share/draw/gnuplot.lisp
@@ -1499,7 +1499,7 @@
 (defun sample-data (expr xmin xmax ymin ymax sample grid)
   (let* ((xdelta (/ (- xmax xmin) ($first grid)))
 	 (ydelta (/ (- ymax ymin) ($second grid)))
-	 (epsilon 1e-6))
+	 (epsilon #+gcl (float 1/1000000) #-gcl 1e-6))
     (do ((x-val xmin (+ x-val xdelta))
 	 (i 0 (1+ i)))
 	((> i ($first grid)))
diff --git a/src/simp.lisp b/src/simp.lisp
index 80d6cf8..25104df 100644
--- a/src/simp.lisp
+++ b/src/simp.lisp
@@ -109,7 +109,7 @@
 
 (defmvar derivsimp t "Hack in `simpderiv' for `rwg'")
 
-(defmvar $rootsepsilon 1e-7)
+(defmvar $rootsepsilon #+gcl (float 1/10000000) #-gcl 1e-7)
 (defmvar $grindswitch nil)
 (defmvar $algepsilon 100000000)
 (defmvar $true t)

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

Summary of changes:
 share/draw/gnuplot.lisp |    2 +-
 src/simp.lisp           |    2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)


hooks/post-receive
-- 
Maxima CAS