From a2a12e2531e509f21859ebcfa52b99f81fafcae7 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= Date: Fri, 8 May 2020 13:10:13 +0200 Subject: [PATCH] Revert "cmp: fix inlining of local closures" This reverts commit 58f17f6c66007cd6b6bb6b59dc2f98ef17ceecdf. --- src/cmp/cmpeval.lsp | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/src/cmp/cmpeval.lsp b/src/cmp/cmpeval.lsp index 5d03403c3..ea5dcbb4f 100644 --- a/src/cmp/cmpeval.lsp +++ b/src/cmp/cmpeval.lsp @@ -104,9 +104,8 @@ (declared-inline-p fname) (plusp *inline-max-depth*)) (return-from c1call-local - (let ((*inline-max-depth* (1- *inline-max-depth*)) - (*cmp-env* (fun-cmp-env fun))) - (c1expr `(funcall #',lambda ,@args)))))) + (let ((*inline-max-depth* (1- *inline-max-depth*))) + `(funcall #',lambda ,@args))))) (let* ((forms (c1args* args)) (return-type (or (get-local-return-type fun) 'T)) (arg-types (get-local-arg-types fun)))