sfos/ecl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Revert "cmp: fix inlining of local closures"

Browse source 
This reverts commit 58f17f6c66.
This commit is contained in:
Daniel Kochmański 2020-05-08 13:10:13 +02:00
parent cbe5326b0f
commit a2a12e2531
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/cmp/cmpeval.lsp
View file

@ -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)))