From c603e57ef38962ddee61e540a9089122e0caa552 Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@users.sourceforge.net>
Date: Sun, 14 Apr 2013 21:47:17 +0200
Subject: [PATCH] In *.data we have to add a final newline character to ensure
 that the compiler does not complain.

---
 src/cmp/cmpwt.lsp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/cmp/cmpwt.lsp b/src/cmp/cmpwt.lsp
index ea967fa7d..88eac5f0a 100644
--- a/src/cmp/cmpwt.lsp
+++ b/src/cmp/cmpwt.lsp
@@ -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))