mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-06 17:30:41 -08:00
Code Issues Projects Releases Packages Wiki Activity

Fixed infinite loop in the routine for inlining LAMBDA forms, plus other bugs related to variable names in macro expansion.

Browse source
This commit is contained in:
jjgarcia 2005-11-15 19:49:26 +00:00
parent d55b5669ac
commit 6afc4856fe
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/cmp/cmplam.lsp
View file

@ -454,7 +454,7 @@
:format-control "Too few arguments for lambda form ~S"
:format-arguments (cons 'LAMBDA lambda-form)))))
let-vars))
(do ((scan (cdr optionals) (cdddr optionals)))
(do ((scan (cdr optionals) (cdddr scan)))
((endp scan))
(let ((opt-var (first scan))
(opt-flag (third scan))
@ -466,7 +466,7 @@
let-vars)))
(apply-p
(setf let-vars
(list* `(,opt-var (if ,opt-flag
(list* `(,opt-var (if ,apply-var
(pop ,apply-var)
,opt-value))
`(,opt-flag ,apply-var)
@ -503,7 +503,7 @@
extra-stmts))))
(when (and key-flag (not allow-other-keys))
(push `(si::check-keyword ,rest ',all-keys) extra-stmts))
`(let* ,(nreverse let-vars)
`(let* ,(nreverse (delete-if-not #'first let-vars))
,@(multiple-value-bind (decl body)
(si::find-declarations (rest lambda-form))
(append decl extra-stmts body)))))