add newlines previously removed, they were added by remove-quotes

2017-11-28 09:19:45 +01:00 · 2017-11-28 09:19:45 +01:00 · e763198dd9
parent a6018524bb
commit e763198dd9
1 changed files with 4 additions and 1 deletions
--- a/generator.lisp
+++ b/generator.lisp
@ -37,7 +37,10 @@
      (replace-all
       (apply #'concatenate 'string
              (with-open-file (stream path)
-                (loop for line = (read-line stream nil) while line collect line)))
+                (loop for line = (read-line stream nil)
+                   while line
+                   collect
+                   (format nil "~a~%" line))))
       "~" "~~")
    (progn
      (format t "ERROR : file ~a not found. Aborting~%" path)