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