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@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@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