summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--main.lisp2
1 files changed, 1 insertions, 1 deletions
diff --git a/main.lisp b/main.lisp
index 1a8ce85..42eda2c 100644
--- a/main.lisp
+++ b/main.lisp
@@ -155,7 +155,7 @@
(acceptp (getf *query* :acceptp nil))
(table (cond ((string= type "trackback") 'journal_trackback)
((string= type "pingback") 'journal_pingback)
- 'journal_comment)))
+ (t 'journal_comment))))
(with-transaction ()
(when (and id type acceptp (string= acceptp "t"))
(update-records table