mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-04-27 11:40:45 -07:00
Code Issues Projects Releases Packages Wiki Activity

cmputil: fix invalid iteration

Browse source 
Instead of using the iteration variable we've used the same list repeatedly.
This commit is contained in:
Daniel Kochmański 2023-01-19 19:52:56 +01:00
parent 36e5a02241
commit 26c8e18750
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/cmp/cmputil.lsp
View file

@ -613,9 +613,9 @@ keyword argument, the compiler-macro declines to provide an expansion.
parse-forms-pass2))
;; 5. &aux vars: these are simply set to their initforms after
;; parsing of keywords has finished
(loop for a on auxs
do (push (first auxs) bindings-for-body)
(push `(setf ,(first auxs) ,(second auxs)) aux-setf-forms))
(loop for a on auxs by #'cddr
do (push (first a) bindings-for-body)
(push `(setf ,(first a) ,(second a)) aux-setf-forms))
;; 6. Finally, we are ready to create the compiler-macro definition
`(define-compiler-macro ,name ,(nreverse new-lambda-list)
(let* ,(nreverse bindings-for-body)