From 1d96709d83e12349f8a39e146864210b3eede448 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Wed, 7 Feb 1990 12:11:04 +0000
Subject: [PATCH] In ANNOTATE-COMPONENT-FOR-EVAL, added an assertion that we
 never see :ESCAPE functions.  (They are replaced with constant NLX-info
 references by environment analysis.)

---
 compiler/eval-comp.lisp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/compiler/eval-comp.lisp b/compiler/eval-comp.lisp
index fb1d3bcb8..462b414a8 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
-- 
GitLab