SMOLNET PORTAL home about changes
iadd newlines previously removed, they were added by remove-quotes - cl-yag - Common Lisp Yet Another website Generator	Err	bitreich.org	70
hgit clone git://bitreich.org/cl-yag/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/cl-yag/	URL:git://bitreich.org/cl-yag/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/cl-yag/	bitreich.org	70
1Log	/scm/cl-yag/log.gph	bitreich.org	70
1Files	/scm/cl-yag/files.gph	bitreich.org	70
1Refs	/scm/cl-yag/refs.gph	bitreich.org	70
1Tags	/scm/cl-yag/tag	bitreich.org	70
1README	/scm/cl-yag/file/README.md.gph	bitreich.org	70
1LICENSE	/scm/cl-yag/file/LICENSE.gph	bitreich.org	70
i---	Err	bitreich.org	70
1commit e763198dd927d89f6eb08566bd88693aca39e435	/scm/cl-yag/commit/e763198dd927d89f6eb08566bd88693aca39e435.gph	bitreich.org	70
1parent a6018524bb0bf1cb850a252249a52e86efa421bb	/scm/cl-yag/commit/a6018524bb0bf1cb850a252249a52e86efa421bb.gph	bitreich.org	70
hAuthor: Solene Rapenne <solene@perso.pw>	URL:mailto:solene@perso.pw	bitreich.org	70
iDate:   Tue, 28 Nov 2017 09:19:45 +0100	Err	bitreich.org	70
i	Err	bitreich.org	70
iadd newlines previously removed, they were added by remove-quotes	Err	bitreich.org	70
i	Err	bitreich.org	70
iDiffstat:	Err	bitreich.org	70
i  M generator.lisp                      |       5 ++++-	Err	bitreich.org	70
i	Err	bitreich.org	70
i1 file changed, 4 insertions(+), 1 deletion(-)	Err	bitreich.org	70
i---	Err	bitreich.org	70
1diff --git a/generator.lisp b/generator.lisp	/scm/cl-yag/file/generator.lisp.gph	bitreich.org	70
i@@ -37,7 +37,10 @@	Err	bitreich.org	70
i       (replace-all	Err	bitreich.org	70
i        (apply #'concatenate 'string	Err	bitreich.org	70
i               (with-open-file (stream path)	Err	bitreich.org	70
i-                (loop for line = (read-line stream nil) while line collect line)))	Err	bitreich.org	70
i+                (loop for line = (read-line stream nil)	Err	bitreich.org	70
i+                   while line	Err	bitreich.org	70
i+                   collect	Err	bitreich.org	70
i+                   (format nil "~a~%" line))))	Err	bitreich.org	70
i        "~" "~~")	Err	bitreich.org	70
i     (progn	Err	bitreich.org	70
i       (format t "ERROR : file ~a not found. Aborting~%" path)	Err	bitreich.org	70
.
Response: text/plain
Original URLgopher://bitreich.org/0/scm/cl-yag/commit/e763198dd927d89...
Content-Typetext/plain; charset=utf-8