diff options
Diffstat (limited to 'main.lisp')
-rw-r--r-- | main.lisp | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -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))))))) |