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