[cmucl-commit] [git] CMU Common Lisp branch master updated. snapshot-2014-03-2-gf15327b

[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  f15327ba2aba87dea3c67204ca0f1100c1a605d9 (commit)
      from  508b6594cf003d6a9d400d59d4ec32255728d0e9 (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 f15327ba2aba87dea3c67204ca0f1100c1a605d9
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Sat Mar 8 13:29:52 2014 -0800

    Add double-double-float-positive-infinity and
    double-double-float-negative-infinity.

diff --git a/src/code/exports.lisp b/src/code/exports.lisp
index a5f5ca6..ca0a60b 100644
--- a/src/code/exports.lisp
+++ b/src/code/exports.lisp
@@ -1425,7 +1425,9 @@
 	   "LEAST-POSITIVE-DOUBLE-DOUBLE-FLOAT"
 	   "LEAST-NEGATIVE-DOUBLE-DOUBLE-FLOAT"
 	   "MOST-POSITIVE-DOUBLE-DOUBLE-FLOAT"
-	   "MOST-NEGATIVE-DOUBLE-DOUBLE-FLOAT")
+	   "MOST-NEGATIVE-DOUBLE-DOUBLE-FLOAT"
+	   "DOUBLE-DOUBLE-FLOAT-NEGATIVE-INFINITY"
+	   "DOUBLE-DOUBLE-FLOAT-POSITIVE-INFINITY")
 
   ;; Spice lisp extensions
   (:export "LETF*" "LETF" "DOVECTOR" "DELETEF" "INDENTING-FURTHER" "FILE-COMMENT"
diff --git a/src/code/float.lisp b/src/code/float.lisp
index 01b7002..de80bc4 100644
--- a/src/code/float.lisp
+++ b/src/code/float.lisp
@@ -65,7 +65,8 @@
 	  least-positive-double-double-float
 	  least-negative-double-double-float
 	  most-positive-double-double-float
-	  most-negative-double-double-float))
+	  most-negative-double-double-float
+	  double-double-float-negative-infinity))
 
 (in-package "KERNEL")
 
@@ -159,6 +160,15 @@
   ;; What is the right value?
   (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))
+(defconstant double-double-float-negative-infinity
+  ;; What is the right value?
+  (kernel:make-double-double-float double-float-negative-infinity
+				   0d0))
+
 ); double-double
 
 (defconstant least-positive-normalized-single-float

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

Summary of changes:
 src/code/exports.lisp |    4 +++-
 src/code/float.lisp   |   12 +++++++++++-
 2 files changed, 14 insertions(+), 2 deletions(-)


hooks/post-receive
-- 
CMU Common Lisp