[git] CMU Common Lisp branch master updated. snapshot-2013-03-a-8-g25047af

[Raymond Toy]

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 "CMU Common Lisp".

The branch, master has been updated
       via  25047afd964691f70669318e97164c4d81ecb3a7 (commit)
       via  b82f05d5f2fe59b52977bbf0a2d25578caded0de (commit)
      from  c94b32f927061d6e7b7ea1ebf92ccdb4c3b1a842 (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 25047afd964691f70669318e97164c4d81ecb3a7
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Mon Apr 8 08:28:20 2013 -0700

    Update from logs.

diff --git a/src/general-info/release-20e.txt b/src/general-info/release-20e.txt
index d38c14c..9ebd374 100644
--- a/src/general-info/release-20e.txt
+++ b/src/general-info/release-20e.txt
@@ -72,6 +72,7 @@ New in this release:
     * Ticket #76 fixed.
     * Ticket #79 fixed.
     * Ticket #77 fixed.
+    * Ticket #80 fixed.
 
   * Other changes:
     * -8 option for build-all.sh is deprecated since we don't

commit b82f05d5f2fe59b52977bbf0a2d25578caded0de
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Sun Apr 7 11:03:06 2013 -0700

    Fix ticket:80
    
     * Increase the size of *powers-of-ten* a bit.
     * In expt-ten, handle the case where the exponent exceeds the size of
       the *powers-of-ten* array.

diff --git a/src/code/print.lisp b/src/code/print.lisp
index aae2e0b..f2f42c9 100644
--- a/src/code/print.lisp
+++ b/src/code/print.lisp
@@ -1837,12 +1837,12 @@ radix-R.  If you have a power-list then pass it in as PL."
 
 ;; Exact powers of ten.  Must be large enough to cover the range from
 ;; least-positive-double-float to most-positive-double-float
-(declaim (type (simple-array integer (326)) *powers-of-ten*))
+(declaim (type (simple-array integer (400)) *powers-of-ten*))
 (defparameter *powers-of-ten*
-  (make-array 326
+  (make-array 400
 	      :initial-contents
 	      (let (p)
-		(dotimes (k 326 (nreverse p))
+		(dotimes (k 400 (nreverse p))
 		  (push (expt 10 k) p)))))
 
 ;;; Implementation of Figure 1 from "Printing Floating-Point Numbers
@@ -1957,9 +1957,11 @@ radix-R.  If you have a power-list then pass it in as PL."
 			  m- 1)))
 	    (when position
 	      (flet ((expt-ten (e)
-		       (if (minusp e)
-			   (/ (aref *powers-of-ten* (- e)))
-			   (aref *powers-of-ten* e))))
+		       (if (> (abs e) (length *powers-of-ten*))
+			   (expt 10 e)
+			   (if (minusp e)
+			       (/ (aref *powers-of-ten* (- e)))
+			       (aref *powers-of-ten* e)))))
 		(when relativep
 		  (let ((r+m (+ r m+)))
 		    ;;(format t "r, s = ~A, ~A~%" r s)

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

Summary of changes:
 src/code/print.lisp              |   14 ++++++++------
 src/general-info/release-20e.txt |    1 +
 2 files changed, 9 insertions(+), 6 deletions(-)


hooks/post-receive
-- 
CMU Common Lisp