ifixing a crash when no tag for an article and better Makefile - 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 f5378fcab81e5f0c54f208270c617b1825162ab9 /scm/cl-yag/commit/f5378fcab81e5f0c54f208270c617b1825162ab9.gph bitreich.org 70 1parent b0cd4f627992889230b31f3b414d0cbd16099610 /scm/cl-yag/commit/b0cd4f627992889230b31f3b414d0cbd16099610.gph bitreich.org 70 hAuthor: solene rapenne URL:mailto:solene@dataswamp.org bitreich.org 70 iDate: Sat, 14 May 2016 23:33:04 +0200 Err bitreich.org 70 i Err bitreich.org 70 ifixing a crash when no tag for an article and better Makefile Err bitreich.org 70 i Err bitreich.org 70 iDiffstat: Err bitreich.org 70 i M Makefile | 13 ++++++++++++- Err bitreich.org 70 i M generator.lisp | 2 +- Err bitreich.org 70 i Err bitreich.org 70 i2 files changed, 13 insertions(+), 2 deletions(-) Err bitreich.org 70 i--- Err bitreich.org 70 1diff --git a/Makefile b/Makefile /scm/cl-yag/file/Makefile.gph bitreich.org 70 i@@ -1,7 +1,18 @@ Err bitreich.org 70 i+LISP=clisp Err bitreich.org 70 i+PARAM= Err bitreich.org 70 i+ Err bitreich.org 70 i+.if "${LISP}" == "sbcl" Err bitreich.org 70 i+PARAM=--dynamic-space-size 60 --script Err bitreich.org 70 i+.elif "${LISP}" == "clisp" Err bitreich.org 70 i+PARAM= Err bitreich.org 70 i+.elif "${LISP}" == "ecl" Err bitreich.org 70 i+PARAM=-shell Err bitreich.org 70 i+.endif Err bitreich.org 70 i+ Err bitreich.org 70 i all: Err bitreich.org 70 i mkdir -p output/static Err bitreich.org 70 i cp -fr static/* output/static/ Err bitreich.org 70 i- sbcl --dynamic-space-size 60 --script generator.lisp Err bitreich.org 70 i+ LANG=POSIX.UTF-8 $(LISP) $(PARAM) generator.lisp Err bitreich.org 70 i Err bitreich.org 70 i clean: Err bitreich.org 70 i rm -fr output/* Err bitreich.org 70 1diff --git a/generator.lisp b/generator.lisp /scm/cl-yag/file/generator.lisp.gph bitreich.org 70 i@@ -81,7 +81,7 @@ Err bitreich.org 70 i (strip-quotes Err bitreich.org 70 i (mapcar #'(lambda (item) Err bitreich.org 70 i (prepare "template/one-tag.tpl" (template "%%Name%%" item))) Err bitreich.org 70 i- (split-str (getf article :tag))))) Err bitreich.org 70 i+ (split-str (getf article :tag ""))))) Err bitreich.org 70 i Err bitreich.org 70 i ;; generates the html of the whole list of tags Err bitreich.org 70 i (defun get-tag-list() Err bitreich.org 70 .