From 08e6f9bacb09f52ef51203c688a500ce1099db51 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Wed, 7 Feb 1990 12:40:19 +0000
Subject: [PATCH] In the UNWIND-PROTECT case of EMIT-CLEANUPS, fixed to use
 %FUNCALL instead of FUNCALL so that the cleanup function reference will be
 recognized as a local call.  (Which is must be, since there is no XEP for
 cleanup functions.)

---
 compiler/envanal.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/envanal.lisp b/compiler/envanal.lisp
index 30141e8f5..9a891b693 100644
--- a/compiler/envanal.lisp
+++ b/compiler/envanal.lisp
@@ -258,7 +258,7 @@
 	     (code `(%unwind-protect-breakup))
 	     (let ((fun (ref-leaf (continuation-use (second args)))))
 	       (reanalyze-funs fun)
-	       (code `(funcall ,fun))))
+	       (code `(%funcall ,fun))))
 	    (:entry
 	     (dolist (nlx (cleanup-nlx-info cleanup))
 	       (code `(%lexical-exit-breakup ',nlx)))))))
-- 
GitLab