Fix delete-optional-dispatch for functionals with XEPs.
commitf4a4584f89bf5675cad03a89011a01514e2aef1f
authorStas Boukarev <stassats@gmail.com>
Sun, 23 Oct 2016 11:19:25 +0000 (23 14:19 +0300)
committerStas Boukarev <stassats@gmail.com>
Sun, 23 Oct 2016 11:19:25 +0000 (23 14:19 +0300)
tree96ef90f8ebb57e3326e321afaa1d06152804ddd2
parentd473c66520315582b6a7ee5f83719ff90e49cdc3
Fix delete-optional-dispatch for functionals with XEPs.

Don't just check for leaf-refs of the entry-fun being null but also
check that it's not a XEP, since it's still used without being
referenced.

Fixes lp#1634671
src/compiler/ir1util.lisp
tests/compiler.impure.lisp
tests/compiler.pure.lisp