From f15327ba2aba87dea3c67204ca0f1100c1a605d9 Mon Sep 17 00:00:00 2001 From: Raymond Toy <toy.raymond@gmail.com> Date: Sat, 8 Mar 2014 13:29:52 -0800 Subject: [PATCH] Add double-double-float-positive-infinity and double-double-float-negative-infinity. --- src/code/exports.lisp | 4 +++- src/code/float.lisp | 12 +++++++++++- 2 files changed, 14 insertions(+), 2 deletions(-) diff --git a/src/code/exports.lisp b/src/code/exports.lisp index a5f5ca653..ca0a60b6c 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 01b70020f..de80bc45f 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 -- GitLab