add newlines previously removed, they were added by remove-quotes - cl-yag - Common Lisp Yet Another website Generator HTML git clone git://bitreich.org/cl-yag/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/cl-yag/ DIR Log DIR Files DIR Refs DIR Tags DIR README DIR LICENSE --- DIR commit e763198dd927d89f6eb08566bd88693aca39e435 DIR parent a6018524bb0bf1cb850a252249a52e86efa421bb HTML Author: Solene Rapenne <solene@perso.pw> Date: Tue, 28 Nov 2017 09:19:45 +0100 add newlines previously removed, they were added by remove-quotes Diffstat: M generator.lisp | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) --- DIR diff --git 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)