iAbort if a file is non-existent - 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 b0fb013bac0ad806bc90e487b552d3affa7f7413	/scm/cl-yag/commit/b0fb013bac0ad806bc90e487b552d3affa7f7413.gph	bitreich.org	70
1parent 994f2224eb625f71b68cb00a77edc37068f0f059	/scm/cl-yag/commit/994f2224eb625f71b68cb00a77edc37068f0f059.gph	bitreich.org	70
hAuthor: Solene Rapenne <solene@quafe.perso.pw>	URL:mailto:solene@quafe.perso.pw	bitreich.org	70
iDate:   Mon, 23 Jan 2017 15:00:40 +0100	Err	bitreich.org	70
i	Err	bitreich.org	70
iAbort if a file is non-existent	Err	bitreich.org	70
i	Err	bitreich.org	70
iDiffstat:	Err	bitreich.org	70
i  M generator.lisp                      |      14 +++++++++-----	Err	bitreich.org	70
i	Err	bitreich.org	70
i1 file changed, 9 insertions(+), 5 deletions(-)	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@@ -35,11 +35,15 @@	Err	bitreich.org	70
i ;; load a file as a string	Err	bitreich.org	70
i ;; we escape ~ to avoid failures with format	Err	bitreich.org	70
i (defun load-file(path)	Err	bitreich.org	70
i-  (replace-all	Err	bitreich.org	70
i-   (strip-quotes	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-   "~" "~~"))	Err	bitreich.org	70
i+  (if (probe-file path)	Err	bitreich.org	70
i+      (replace-all	Err	bitreich.org	70
i+       (strip-quotes	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+       "~" "~~")	Err	bitreich.org	70
i+    (progn	Err	bitreich.org	70
i+      (format t "ERROR : file ~a not found. Aborting~%" path)	Err	bitreich.org	70
i+      (quit))))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i ;; save a string in a file	Err	bitreich.org	70
i (defun save-file(path data)	Err	bitreich.org	70
.