diff options
| -rw-r--r-- | mulkcms.lisp | 6 |
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")) |