From: Lucian Mogosanu <lucian.mogosanu@gmail.com>
Date: Wed, 6 Mar 2019 18:18:39 +0000 (+0200)
Subject: blog: Allow nil draft lists
X-Git-Tag: v0.11~86
X-Git-Url: https://git.mogosanu.ro/?a=commitdiff_plain;h=6d8dffbbf3f85b4150c83d2324fed6d03f794000;p=thetarpit.git

blog: Allow nil draft lists

Should really allow nil anylists, but assert forces dumbo to reread
code.
---

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))