summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <code@mail.matthias.benkard.de>2011-03-19 23:15:28 +0100
committerMatthias Andreas Benkard <code@mail.matthias.benkard.de>2011-03-19 23:15:28 +0100
commit8f8182a67b5c846f9c09051ca5d38ff5c4dede8d (patch)
tree6586c00f25613a466425728451f9196abe53216b
parent46c531b57631bc33d49fbf7ec90a10eaa69e69d5 (diff)
Don't crash when fewer than 5 articles are to be displayed.
-rw-r--r--mulkcms.lisp6
1 files changed, 5 insertions, 1 deletions
diff --git a/mulkcms.lisp b/mulkcms.lisp
index ae31321..afa818c 100644
--- a/mulkcms.lisp
+++ b/mulkcms.lisp
@@ -511,7 +511,11 @@
FROM article_aliases
WHERE article = r.article
AND alias LIKE 'journal/%')")))
- (displayed-revisions (if full-p revisions (subseq revisions 0 5))))
+ (displayed-revisions (if full-p
+ revisions
+ (subseq revisions
+ 0
+ (min 5 (length revisions))))))
(cond
((member path '("journal" "journal/") :test #'string=)
(let* ((page-skeleton (template "page_skeleton"))