mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-25 05:51:55 -08:00
Code Issues Projects Releases Packages Wiki Activity

cmp: fix inlining of local closures

Browse source 
We have to compile the function expression in the environment in which
it was defined. Fixes #577.
This commit is contained in:
Marius Gerbershagen 2020-05-01 12:47:00 +02:00
parent fc5a9ad58c
commit 58f17f6c66
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/cmp/cmpeval.lsp
View file

@ -104,8 +104,9 @@
(declared-inline-p fname) (declared-inline-p fname)
(plusp *inline-max-depth*)) (plusp *inline-max-depth*))
(return-from c1call-local (return-from c1call-local
(let ((*inline-max-depth* (1- *inline-max-depth*))) (let ((*inline-max-depth* (1- *inline-max-depth*))
`(funcall #',lambda ,@args))))) (*cmp-env* (fun-cmp-env fun)))
(c1expr `(funcall #',lambda ,@args))))))
(let* ((forms (c1args* args)) (let* ((forms (c1args* args))
(return-type (or (get-local-return-type fun) 'T)) (return-type (or (get-local-return-type fun) 'T))
(arg-types (get-local-arg-types fun))) (arg-types (get-local-arg-types fun)))