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

In *.data we have to add a final newline character to ensure that the compiler does not complain.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2013-04-14 21:47:17 +02:00
parent 03a38affeb
commit c603e57ef3
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/cmp/cmpwt.lsp
View file

@ -115,7 +115,9 @@
(let ((strings (produce-strings)))
(if strings
(output-c-strings strings stream)
(princ "#define compiler_data_text NULL" stream))))))
(princ "#define compiler_data_text NULL" stream))
;; Ensure a final newline or some compilers complain
(terpri stream)))))
(defun data-empty-loc ()
(add-object 0 :duplicate t :permanent t))