From: Lucian Mogosanu <lucian@mogosanu.ro>
Date: Thu, 15 Aug 2019 13:41:32 +0000 (+0300)
Subject: blog: Set hunchentoot:*show-lisp-errors-p*
X-Git-Url: https://git.mogosanu.ro/?a=commitdiff_plain;h=e3cd972c36c86e13c8d5744a9c4a70211477e97a;p=thetarpit.git

blog: Set hunchentoot:*show-lisp-errors-p*
---

diff --git a/blog.lisp b/blog.lisp
index 2fc822a..b265e9e 100644
--- a/blog.lisp
+++ b/blog.lisp
@@ -325,6 +325,9 @@
 				  :message-log-destination error-log
 				  :access-log-destination access-log
 				  :error-template-directory *lbs-site*)))
+    ;; Hunchentoot is weird, it needs *show-lisp-errors-p* set in
+    ;; order to display "error-template" 40x pages.
+    (setq hunchentoot:*show-lisp-errors-p* t)
     ;; We're running, now we need to set some dispatchers/handlers
     (let* ((static-files '("403.html" "404.html" "about.html" "archive.html"
 			   "drafts.html" "index.html" "rss.xml"