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

diff --git a/blog.lisp b/blog.lisp
index 2fc822a..b265e9e 100644 (file)
--- 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"