fixing a crash when no tag for an article and better Makefile - cl-yag - Common Lisp Yet Another website Generator
HTML 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
HTML 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()