From d571634677f7f4523f76f5e0fa142838f5ed9c59 Mon Sep 17 00:00:00 2001 From: Brit Butler Date: Mon, 20 Aug 2012 10:46:24 -0400 Subject: [PATCH] Bugfix to RENDER-POSTS. --- src/posts.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/posts.lisp b/src/posts.lisp index 52cbf69..13dae19 100644 --- a/src/posts.lisp +++ b/src/posts.lisp @@ -15,8 +15,8 @@ (do-files (file (repo *config*) "post") (with-open-file (in file) (let ((post (read-post in))) - (setf (gethash (post-slug post) *metadata*) post))) - (maphash #'write-post *metadata*))) + (setf (gethash (post-slug post) *metadata*) post)))) + (maphash #'write-post *metadata*)) (defun read-post (stream) "Make a POST instance based on the data from STREAM."