From 6d8dffbbf3f85b4150c83d2324fed6d03f794000 Mon Sep 17 00:00:00 2001 From: Lucian Mogosanu Date: Wed, 6 Mar 2019 20:18:39 +0200 Subject: [PATCH] blog: Allow nil draft lists Should really allow nil anylists, but assert forces dumbo to reread code. --- blog.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/blog.lisp b/blog.lisp index e0e3e5b..b08ba39 100644 --- a/blog.lisp +++ b/blog.lisp @@ -103,7 +103,8 @@ *tags* nil)) (let ((postlist (directory (concatenate 'string *lbs-base* relative-wildcard)))) - (assert (not (null postlist))) + (if (not draft) + (assert (not (null postlist)))) (dolist (x postlist) (let* ((relative-pathname (post-relative-pathname x)) (blist (tlbs-make-blist relative-pathname)) -- 1.7.10.4