mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-04-22 17:50:39 -07:00
Code Issues Projects Releases Packages Wiki Activity

Inlining LAMBDA forms left out the &aux variables

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-12-19 16:51:41 +01:00
parent 9f992d3d32
commit 6426a1def7
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cmp/cmplam.lsp
View file

@ -581,6 +581,8 @@ The function thus belongs to the type of functions that ecl_make_cfun accepts."
`(list ,@arguments))
(if apply-p apply-var nil)))
let-vars))
(loop while aux-vars
do (push (list (pop aux-vars) (pop aux-vars)) let-vars))
(do ((scan (cdr keywords) (cddddr scan)))
((endp scan))
(let ((keyword (first scan))