iadding exit at the end of the script so it doesn't stay in interactive mode + fix declaration order - 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 2031387fa4e3079bf8d57e7b3e009b3305ec4c5a	/scm/cl-yag/commit/2031387fa4e3079bf8d57e7b3e009b3305ec4c5a.gph	bitreich.org	70
1parent 0ff2a8a9d8d2d38a0998c17ce1a1098809051150	/scm/cl-yag/commit/0ff2a8a9d8d2d38a0998c17ce1a1098809051150.gph	bitreich.org	70
hAuthor: solene rapenne <solene@dataswamp.org>	URL:mailto:solene@dataswamp.org	bitreich.org	70
iDate:   Tue,  3 May 2016 14:11:44 +0200	Err	bitreich.org	70
i	Err	bitreich.org	70
iadding exit at the end of the script so it doesn't stay in interactive mode + fix declaration order	Err	bitreich.org	70
i	Err	bitreich.org	70
iDiffstat:	Err	bitreich.org	70
i  M generator.lisp                      |       8 +++-----	Err	bitreich.org	70
i	Err	bitreich.org	70
i1 file changed, 3 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@@ -16,8 +16,6 @@	Err	bitreich.org	70
i 	Err	bitreich.org	70
i ;; common-lisp don't have a split string function natively	Err	bitreich.org	70
i ;; thanks https://gist.github.com/siguremon/1174988	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 (defun split-str-1 (string &optional (separator " ") (r nil))	Err	bitreich.org	70
i   (let ((n (position separator string	Err	bitreich.org	70
i                      :from-end t	Err	bitreich.org	70
i@@ -26,7 +24,8 @@	Err	bitreich.org	70
i     (if n	Err	bitreich.org	70
i         (split-str-1 (subseq string 0 n) separator (cons (subseq string (1+ n)) r))	Err	bitreich.org	70
i             (cons string r))))	Err	bitreich.org	70
i-	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@@ -158,5 +157,4 @@	Err	bitreich.org	70
i   )	Err	bitreich.org	70
i 	Err	bitreich.org	70
i (generate-site)	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-	Err	bitreich.org	70
i+(exit)	Err	bitreich.org	70
.