commit e763198dd927d89f6eb08566bd88693aca39e435 Solene Rapenne <solene@perso.pw> 2017-11-28 09:19:45 +0100 add newlines previously removed, they were added by remove-quotes
generator.lisp | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/generator.lisp b/generator.lisp index 72bceac..e75d8af 100644 --- 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)