More reasonable NOT-MORE-CONTAGIOUS.
commit2e9efba9475fb43c86a6a86143c2ef5500fdb70a
authorStas Boukarev <stassats@gmail.com>
Mon, 2 Jan 2017 19:30:33 +0000 (2 22:30 +0300)
committerStas Boukarev <stassats@gmail.com>
Mon, 2 Jan 2017 19:39:07 +0000 (2 22:39 +0300)
tree6463ba18e3130026977e9a5eceee05d3ca0ac78c
parentc2314fb7068c370136b8eec27bfbfc6055292d40
More reasonable NOT-MORE-CONTAGIOUS.

Rationals do not infect any types. And use CSUBTYPEP instead of
NUMERIC-CONTAGION, does not handle complexes (unlikely to be useful
where NOT-MORE-CONTAGIOUS is used) but handles union types.
src/compiler/srctran.lisp