 |
add newlines previously removed, they were added by remove-quotes - cl-yag - Co… |
 |
git clone git://bitreich.org/cl-yag/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws… |
 |
Log |
|
Files |
|
Refs |
|
Tags |
|
README |
|
LICENSE |
|
--- |
|
commit e763198dd927d89f6eb08566bd88693aca39e435 |
|
parent a6018524bb0bf1cb850a252249a52e86efa421bb |
|
Author: Solene Rapenne <[email protected]> |
|
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(-) |
|
--- |
|
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 lin… |
|
+ (loop for line = (read-line stream nil) |
|
+ while line |
|
+ collect |
|
+ (format nil "~a~%" line)))) |
|
"~" "~~") |
|
(progn |
|
(format t "ERROR : file ~a not found. Aborting~%" path) |
