From c1541ac3fb232f3e6ba9f3f9ee4da48532dd0c7e Mon Sep 17 00:00:00 2001 From: saturn Date: Fri, 24 Dec 2021 00:33:33 -0600 Subject: [PATCH] Fix bugs caused by using the wrong FALSE symbol. --- lw2.lisp | 6 +++--- src/utils.lisp | 3 +++ 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/lw2.lisp b/lw2.lisp index 53521e28..b92f1c16 100644 --- a/lw2.lisp +++ b/lw2.lisp @@ -1327,11 +1327,11 @@ signaled condition to *HTML-OUTPUT*." (t :body (postprocess-markdown text)) (t :title title) (link-post :url url) - (t :meta (or (string= section "meta") :false)) + (t :meta (or (string= section "meta") 'yason:false)) ((not post-id) :is-event nil) - (t :draft (or (string= section "drafts") :false)) + (t :draft (or (string= section "drafts") 'yason:false)) ((typep *current-backend* 'backend-lw2-misc-features) :submit-to-frontpage (and submit-to-frontpage t)) - ((not post-id) :question (if question t :false)))) + ((not post-id) :question (if question t 'yason:false)))) (post-unset (list-cond ((not link-post) :url t))) diff --git a/src/utils.lisp b/src/utils.lisp index d9309b16..580298ef 100644 --- a/src/utils.lisp +++ b/src/utils.lisp @@ -343,6 +343,9 @@ specified, the KEYWORD symbol with the same name as VARIABLE-NAME is used." (defmethod json:encode-json ((object (eql :false)) &optional stream) (write-string "false" stream)) +(defmethod json:encode-json ((object (eql 'yason:false)) &optional stream) ; just in case someone uses the wrong encoder... + (write-string "false" stream)) + (defmethod json:encode-json ((object (eql :null)) &optional stream) (write-string "null" stream)) -- 2.11.4.GIT