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