Fix ticket:71
authorRaymond Toy <toy.raymond@gmail.com>
Fri, 25 Jan 2013 04:28:09 +0000 (20:28 -0800)
committerRaymond Toy <toy.raymond@gmail.com>
Fri, 25 Jan 2013 04:28:09 +0000 (20:28 -0800)
commitb2ee65dabba1742203e28f538eeee59da126093c
tree80f1b602839ded226ed16a743173cf761b5d6183
parenta05bb7128ec7c2eff10c8a940fb897b4270a40fa
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.
src/compiler/srctran.lisp