summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xjournal.lisp2
1 files changed, 1 insertions, 1 deletions
diff --git a/journal.lisp b/journal.lisp
index eb1316d..0488f23 100755
--- a/journal.lisp
+++ b/journal.lisp
@@ -35,7 +35,7 @@
"/journal")))
(multiple-value-call
#'(lambda (&rest args) (apply #'format out args))
- (case action
+ (ecase action
(:index "")
(:full-index "/?full")
(:view-atom-feed (values "/feed"))