Add a debugging page.

darcs-hash:e4f4c096e3e20e6e8de59a4466e891fab8005a80

1 files changed, 2 insertions, 0 deletions

diff --git a/main.lisp b/main.lisp
index d8ae683..a16e1ed 100644
--- a/main.lisp
+++ b/main.lisp
@@ -48,6 +48,7 @@
          (*action*          (or (keywordify (getf *query* :action))
                                 (cond (*post-number*                      :view)
                                       ((string= "feed" (first *subpath*)) :view-atom-feed)
+                                      ((string= "debug" (first *subpath*)) :view-debugging-page)
                                       (t                                  nil))))
          (*method*          (keywordify (gethash "REQUEST_METHOD" *http-env*)))
          (*script-filename* (pathname-as-file
@@ -102,6 +103,7 @@
                                (update-records-from-instance entry)))
                            (show-web-journal))
           (:view-atom-feed (show-atom-feed))
+          (:view-debugging-page (show-debugging-page))
           (otherwise       (show-web-journal)))))))