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

cmp: cosmetic: don't use nconc in ctop-write

Browse source 
We simply iterate over both lists without nconcing them.
This commit is contained in:
Daniel Kochmański 2023-05-19 14:39:51 +02:00
parent aae21dc9ae
commit e23c82b90d
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/cmp/cmppass2-top.lsp
View file

@ -90,8 +90,11 @@
(wt-nl "ECL_DEFINE_SETF_FUNCTIONS")
(loop for form in (nconc *make-forms* *top-level-forms*)
do (emit-toplevel-form form c-output-file))
(dolist (form *make-forms*)
(emit-toplevel-form form c-output-file))
(dolist (form *top-level-forms*)
(emit-toplevel-form form c-output-file))
(wt-nl-close-many-braces 0)
(setq top-output-string (get-output-stream-string *compiler-output1*)))