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@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