[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2013-01-18-gb2ee65d

[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  b2ee65dabba1742203e28f538eeee59da126093c (commit)
      from  a05bb7128ec7c2eff10c8a940fb897b4270a40fa (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 b2ee65dabba1742203e28f538eeee59da126093c
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Thu Jan 24 20:28:09 2013 -0800

    Fix ticket:71
    
    The reader conditionals in {{{NOT-MORE-CONTAGIOUS}}} were incorrrectly
    handling the case when the second type was a double-float. It was
    always returning T in that case, but this is wrong if the first type
    is a double-double-float.

diff --git a/src/compiler/srctran.lisp b/src/compiler/srctran.lisp
index d2f0c3b..4b6f0ff 100644
--- a/src/compiler/srctran.lisp
+++ b/src/compiler/srctran.lisp
@@ -3189,9 +3189,9 @@
 		      (ecase format2
 			((nil short-float single-float)
 			 (member format1 '(short-float single-float)))
-			#-long-float
+			#-double-double
 			((double-float long-float) 'T)
-			#+(or long-float double-double)
+			#+double-double
 			(double-float
 			 (member format1 '(short-float single-float
 					   double-float)))

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

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


hooks/post-receive
-- 
CMU Common Lisp