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