From e23c82b90d345ea1e47fa970e033e16975f0ce41 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= Date: Fri, 19 May 2023 14:39:51 +0200 Subject: [PATCH] cmp: cosmetic: don't use nconc in ctop-write We simply iterate over both lists without nconcing them. --- src/cmp/cmppass2-top.lsp | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/src/cmp/cmppass2-top.lsp b/src/cmp/cmppass2-top.lsp index 025da4177..a22a9f294 100644 --- a/src/cmp/cmppass2-top.lsp +++ b/src/cmp/cmppass2-top.lsp @@ -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*)))