Fix derive-node-type on hairy types.
commit71a725ca608022b916ccc61b9f8689d008ad9a75
authorStas Boukarev <stassats@gmail.com>
Fri, 12 Jan 2018 00:09:14 +0000 (12 03:09 +0300)
committerStas Boukarev <stassats@gmail.com>
Fri, 12 Jan 2018 00:09:14 +0000 (12 03:09 +0300)
treef1c0d163a2973fb3db07ac6f0a85e383311e6cd3
parent0947110d539555b4c81de7d31d24379e28343ea9
Fix derive-node-type on hairy types.

TYPE/= returns NIL when it's not sure, instead of checking the second
value negate the result of TYPE=.

Fixes lp#1742806
src/compiler/ir1opt.lisp
tests/bad-code.pure.lisp