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