fixing a crash when no tag for an article and better Makefile - cl-yag - Common Lisp Yet Another website Generator
 (HTM) git clone git://bitreich.org/cl-yag/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/cl-yag/
 (DIR) Log
 (DIR) Files
 (DIR) Refs
 (DIR) Tags
 (DIR) README
 (DIR) LICENSE
       ---
 (DIR) commit f5378fcab81e5f0c54f208270c617b1825162ab9
 (DIR) parent b0cd4f627992889230b31f3b414d0cbd16099610
 (HTM) Author: solene rapenne <solene@dataswamp.org>
       Date:   Sat, 14 May 2016 23:33:04 +0200
       
       fixing a crash when no tag for an article and better Makefile
       
       Diffstat:
         M Makefile                            |      13 ++++++++++++-
         M generator.lisp                      |       2 +-
       
       2 files changed, 13 insertions(+), 2 deletions(-)
       ---
 (DIR) diff --git a/Makefile b/Makefile
       @@ -1,7 +1,18 @@
       +LISP=clisp
       +PARAM=
       +
       +.if "${LISP}" == "sbcl"
       +PARAM=--dynamic-space-size 60 --script
       +.elif "${LISP}" == "clisp"
       +PARAM=
       +.elif "${LISP}" == "ecl"
       +PARAM=-shell
       +.endif
       +
        all:
                mkdir -p output/static
                cp -fr static/* output/static/
       -        sbcl --dynamic-space-size 60 --script generator.lisp
       +        LANG=POSIX.UTF-8 $(LISP) $(PARAM) generator.lisp
        
        clean:
                rm -fr output/*
 (DIR) diff --git a/generator.lisp b/generator.lisp
       @@ -81,7 +81,7 @@
          (strip-quotes
           (mapcar #'(lambda (item)
                       (prepare "template/one-tag.tpl" (template "%%Name%%" item)))
       -           (split-str (getf article :tag)))))
       +           (split-str (getf article :tag "")))))
        
        ;; generates the html of the whole list of tags
        (defun get-tag-list()