miniblog

Miniblog: A command-line static blog system in Common Lisp
Log | Files | Refs | README | LICENSE

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:
Msrc/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)