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 (file)
--- 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)))