diff --git a/src/code/exports.lisp b/src/code/exports.lisp
index a5f5ca653dabb3cd121e2678209f8f5170e5b1ed..ca0a60b6c20a84875589f4546c92945d4883bc76 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 01b70020fdb8ed8a8a3874c0dbac0f11b666a4ea..de80bc45fea3c8ed159768e92fa6938cc87e05cb 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