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)