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 513c3b23e97cf7e1af4da202053bedf96e70cc44 (commit) from 0e94b217534b1306e73ab5b61fd34060311c1608 (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 513c3b23e97cf7e1af4da202053bedf96e70cc44 Author: Raymond Toy toy.raymond@gmail.com Date: Sat Mar 1 08:30:18 2014 -0800
Fix ticket 94.
* Add least-positive-normalized-double-double-float, least-negative-normalized-double-double-float, least-positive-double-double-float, least-negative-double-double-float, most-positive-double-double-float, most-negative-double-double-float to the extensions package.
diff --git a/src/code/exports.lisp b/src/code/exports.lisp index 9322c5d..a5f5ca6 100644 --- a/src/code/exports.lisp +++ b/src/code/exports.lisp @@ -1418,6 +1418,14 @@ "FLOAT-DENORMALIZED-P" "FLOAT-INFINITY-P" "FLOAT-NAN-P" "FLOAT-TRAPPING-NAN-P" "WITH-FLOAT-TRAPS-MASKED") + ;; More float extensions + #+double-double + (:export "LEAST-POSITIVE-NORMALIZED-DOUBLE-DOUBLE-FLOAT" + "LEAST-NEGATIVE-NORMALIZED-DOUBLE-DOUBLE-FLOAT" + "LEAST-POSITIVE-DOUBLE-DOUBLE-FLOAT" + "LEAST-NEGATIVE-DOUBLE-DOUBLE-FLOAT" + "MOST-POSITIVE-DOUBLE-DOUBLE-FLOAT" + "MOST-NEGATIVE-DOUBLE-DOUBLE-FLOAT")
;; 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 ce7e572..01b7002 100644 --- a/src/code/float.lisp +++ b/src/code/float.lisp @@ -59,6 +59,14 @@ set-floating-point-modes float-denormalized-p float-nan-p float-trapping-nan-p float-infinity-p))
+#+double-double +(export '(least-positive-normalized-double-double-float + least-negative-normalized-double-double-float + least-positive-double-double-float + least-negative-double-double-float + most-positive-double-double-float + most-negative-double-double-float)) + (in-package "KERNEL")
@@ -127,6 +135,32 @@ #+(and long-float x86) (defconstant least-negative-long-float (long-from-bits 1 0 1))
+#+double-double +(progn +(defconstant least-positive-normalized-double-double-float + ;; What is the right value? + (kernel:make-double-double-float least-positive-normalized-double-float + 0d0)) +(defconstant least-negative-normalized-double-double-float + ;; What is the right value? + (kernel:make-double-double-float least-negative-normalized-double-float + 0d0)) +(defconstant least-positive-double-double-float + (kernel:make-double-double-float least-positive-double-float + 0d0)) +(defconstant least-negative-double-double-float + (kernel:make-double-double-float least-negative-double-float + 0d0)) +(defconstant most-positive-double-double-float + ;; What is the right value? + (kernel:make-double-double-float most-positive-double-float + 0d0)) +(defconstant most-negative-double-double-float + ;; What is the right value? + (kernel:make-double-double-float most-negative-double-float + 0d0)) +); double-double + (defconstant least-positive-normalized-single-float (single-from-bits 0 vm:single-float-normal-exponent-min 0)) (defconstant least-positive-normalized-short-float
-----------------------------------------------------------------------
Summary of changes: src/code/exports.lisp | 8 ++++++++ src/code/float.lisp | 34 ++++++++++++++++++++++++++++++++++ 2 files changed, 42 insertions(+)
hooks/post-receive