summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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"))