From a447df807b5bfea3b49dff6575b7993acb226f1e Mon Sep 17 00:00:00 2001 From: Javier Olaechea Date: Sun, 12 Nov 2017 20:36:08 -0500 Subject: [PATCH] Closes #145 Before calling RENDER-TEXT, we have to ensure that the FORMAT slot is a keyword. This bug was introduced in a6164f0bc0b2003b757f83455e79ef08fe8d7f7e Thanks to Masataro Asai (Guicho) for reporting the bug. --- src/posts.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/posts.lisp b/src/posts.lisp index 39d7f96..334b53e 100644 --- a/src/posts.lisp +++ b/src/posts.lisp @@ -9,9 +9,10 @@ (defmethod initialize-instance :after ((object post) &key) (with-slots (url title author excerpt format text) object - (let ((post-content (render-text text format))) + (let (post-content) (setf url (compute-url object (slugify title)) format (make-keyword (string-upcase format)) + post-content (render-text text format) excerpt (or excerpt (first (split (excerpt-sep *config*) post-content