[cmucl-cvs] [git] CMU Common Lisp branch master updated. release-20c-22-g44ca897

[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  44ca897b25dda1179df1d8bfa3469d75594385d6 (commit)
      from  667a476adeae105dd8b712a14d4e136f58e5810d (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 44ca897b25dda1179df1d8bfa3469d75594385d6
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Wed Nov 16 23:21:18 2011 -0800

    Forgot to compiler that DECODE-FLOAT can return +/- 1w0 for the sign.

diff --git a/src/compiler/fndb.lisp b/src/compiler/fndb.lisp
index 985ce24..6dcd544 100644
--- a/src/compiler/fndb.lisp
+++ b/src/compiler/fndb.lisp
@@ -306,7 +306,9 @@
 (defknown decode-float (float)
   (values (float 0.5d0 (1d0))
 	  float-exponent
-	  (member 1f0 -1f0 -1d0 1d0))
+	  (member 1f0 -1f0 -1d0 1d0
+		  #+double-double -1w0
+		  #+double-double 1w0))
   (movable foldable flushable explicit-check))
 (defknown scale-float (float float-exponent) float
   (movable foldable flushable explicit-check))

-----------------------------------------------------------------------

Summary of changes:
 src/compiler/fndb.lisp |    4 +++-
 1 files changed, 3 insertions(+), 1 deletions(-)


hooks/post-receive
-- 
CMU Common Lisp