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