[cmucl-commit] [git] CMU Common Lisp branch master updated. snapshot-2014-02-9-g513c3b2

[Raymond Toy]

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 at 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
-- 
CMU Common Lisp