ifixing clisp compatibility - 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 da8e0af550cd5a47d4fccc399636d47287b143dd	/scm/cl-yag/commit/da8e0af550cd5a47d4fccc399636d47287b143dd.gph	bitreich.org	70
1parent e94fc554f9a4f95d8b8df4ea8629a330ef129d13	/scm/cl-yag/commit/e94fc554f9a4f95d8b8df4ea8629a330ef129d13.gph	bitreich.org	70
hAuthor: Solene Rapenne <solene@dataswamp.org>	URL:mailto:solene@dataswamp.org	bitreich.org	70
iDate:   Tue,  3 May 2016 15:54:02 +0200	Err	bitreich.org	70
i	Err	bitreich.org	70
ifixing clisp compatibility	Err	bitreich.org	70
i	Err	bitreich.org	70
iDiffstat:	Err	bitreich.org	70
i  M generator.lisp                      |      22 ++++++++++------------	Err	bitreich.org	70
i	Err	bitreich.org	70
i1 file changed, 10 insertions(+), 12 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@@ -27,21 +27,20 @@	Err	bitreich.org	70
i (defun split-str (string &optional (separator " "))	Err	bitreich.org	70
i   (split-str-1 string separator))	Err	bitreich.org	70
i 	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-   (with-open-file (stream path)	Err	bitreich.org	70
i-                   (let ((data (make-string (file-length stream))))	Err	bitreich.org	70
i-                     (read-sequence data stream)	Err	bitreich.org	70
i-                     data))	Err	bitreich.org	70
i-   "~" "~~"))	Err	bitreich.org	70
i-	Err	bitreich.org	70
i ;; we have to remove the quotes	Err	bitreich.org	70
i ;; when using collect in a loop	Err	bitreich.org	70
i (defun strip-quotes(input)	Err	bitreich.org	70
i   (format nil "~{~d~}" input))	Err	bitreich.org	70
i 	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+	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
i   (with-open-file (stream (concatenate 'string "output/" path) :direction :output :if-exists :supersede)	Err	bitreich.org	70
i@@ -62,8 +61,7 @@	Err	bitreich.org	70
i ;; simplify the file saving by using the layout	Err	bitreich.org	70
i (defmacro generate(name &body data)	Err	bitreich.org	70
i   `(progn	Err	bitreich.org	70
i-     (save-file ,name	Err	bitreich.org	70
i-                (generate-layout ,@data))))	Err	bitreich.org	70
i+     (save-file ,name (generate-layout ,@data))))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i ;; generate the list of tags	Err	bitreich.org	70
i (defun articles-by-tag()	Err	bitreich.org	70
.