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

cmp: ctop-write: don't reverse *static-constants* twice

Browse source 
This was probably a braino. *static-constants* is always a list.
This commit is contained in:
Daniel Kochmański 2021-05-12 16:04:38 +02:00
parent 7efb01d7d1
commit a70c2fa36c
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -117,8 +117,7 @@
(wt-nl-h "}")
(wt-nl-h "#endif")
(when (and (listp *static-constants*)
(setf *static-constants* (nreverse *static-constants*)))
(unless (null *static-constants*)
(wt-nl-h "/*")
(wt-nl-h " * Statically defined constants")
(wt-nl-h " */")