miniblog

commit 8700f059ef026cebb307641183ec4d571e2174fe
parent 491d5f1b917ecb637b2561a092c23a7d53bc2856
Author: Decay <decay@todayiwilllaunchmyinfantsonintoorbit.com>
Date:   Fri, 25 Sep 2020 00:23:45 -0700

Fixing list-entries

Broke listing posts! This fixes it!

Diffstat:
M
src/miniblog.lisp
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/miniblog.lisp b/src/miniblog.lisp
@@ -442,7 +442,7 @@
     (dolist (entry (subseq entries first last))
       (format t "~d \"~a\" ~a~%" (getf entry :id) (getf entry :title) (getf entry :created-by)))))
 
-(defmethod list-entries ((entry-type (eql :post)) start n)
+(defmethod list-entries ((entry-type (eql :page)) start n)
   (declare (ignore n))
   (labels ((traverse (node depth)
              (destructuring-bind (&key id name title children created-by &allow-other-keys)