[git] CMU Common Lisp branch master updated. snapshot-2014-05-5-g7534898

[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  7534898c2e414172cda3d7d8486a868038420398 (commit)
      from  c1e7b4aad739a7e71d0b0095893df6c257b7724a (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 7534898c2e414172cda3d7d8486a868038420398
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Sat May 10 09:29:05 2014 -0700

    Use %make-double-double-float directly for the double-double constants
    because we don't need to renormalize the values.  Also gets rid of
    some compiler warnings about constant folding.

diff --git a/src/code/float.lisp b/src/code/float.lisp
index de80bc4..9a7080d 100644
--- a/src/code/float.lisp
+++ b/src/code/float.lisp
@@ -140,34 +140,34 @@
 (progn
 (defconstant least-positive-normalized-double-double-float
   ;; What is the right value?
-  (kernel:make-double-double-float least-positive-normalized-double-float
-				   0d0))
+  (kernel:%make-double-double-float least-positive-normalized-double-float
+				    0d0))
 (defconstant least-negative-normalized-double-double-float
   ;; What is the right value?
-  (kernel:make-double-double-float least-negative-normalized-double-float
-				   0d0))
+  (kernel:%make-double-double-float least-negative-normalized-double-float
+				    0d0))
 (defconstant least-positive-double-double-float
-  (kernel:make-double-double-float least-positive-double-float
-				   0d0))
+  (kernel:%make-double-double-float least-positive-double-float
+				    0d0))
 (defconstant least-negative-double-double-float
-  (kernel:make-double-double-float least-negative-double-float
-				   0d0))
+  (kernel:%make-double-double-float least-negative-double-float
+				    0d0))
 (defconstant most-positive-double-double-float
   ;; What is the right value?
-  (kernel:make-double-double-float most-positive-double-float
-				   0d0))
+  (kernel:%make-double-double-float most-positive-double-float
+				    0d0))
 (defconstant most-negative-double-double-float
   ;; What is the right value?
-  (kernel:make-double-double-float most-negative-double-float
-				   0d0))
+  (kernel:%make-double-double-float most-negative-double-float
+				    0d0))
 (defconstant double-double-float-positive-infinity
   ;; What is the right value?
-  (kernel:make-double-double-float double-float-positive-infinity
-				   0d0))
+  (kernel:%make-double-double-float double-float-positive-infinity
+				    0d0))
 (defconstant double-double-float-negative-infinity
   ;; What is the right value?
-  (kernel:make-double-double-float double-float-negative-infinity
-				   0d0))
+  (kernel:%make-double-double-float double-float-negative-infinity
+				    0d0))
 
 ); double-double
 

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

Summary of changes:
 src/code/float.lisp |   32 ++++++++++++++++----------------
 1 file changed, 16 insertions(+), 16 deletions(-)


hooks/post-receive
-- 
CMU Common Lisp