Skip to content
Snippets Groups Projects
Commit 08e6f9ba authored by ram's avatar ram
Browse files

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.)
parent 1d96709d
No related branches found
No related tags found
No related merge requests found
...@@ -258,7 +258,7 @@ ...@@ -258,7 +258,7 @@
(code `(%unwind-protect-breakup)) (code `(%unwind-protect-breakup))
(let ((fun (ref-leaf (continuation-use (second args))))) (let ((fun (ref-leaf (continuation-use (second args)))))
(reanalyze-funs fun) (reanalyze-funs fun)
(code `(funcall ,fun)))) (code `(%funcall ,fun))))
(:entry (:entry
(dolist (nlx (cleanup-nlx-info cleanup)) (dolist (nlx (cleanup-nlx-info cleanup))
(code `(%lexical-exit-breakup ',nlx))))))) (code `(%lexical-exit-breakup ',nlx)))))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment