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