diff --git a/compiler/eval-comp.lisp b/compiler/eval-comp.lisp index fb1d3bcb8f7c0645c15b24bf1ed42cf7f5b9f337..462b414a85e14e5209bc37d19b591bdd900bec05 100644 --- a/compiler/eval-comp.lisp +++ b/compiler/eval-comp.lisp @@ -202,6 +202,7 @@ ((and leaf (typep leaf 'clambda) (member (functional-kind leaf) non-closed-function-kinds)) + (assert (not (eq (functional-kind leaf) :escape))) :unused) (t (typecase dest