diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2011-03-19 23:15:28 +0100 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2011-03-19 23:15:28 +0100 |
| commit | 8f8182a67b5c846f9c09051ca5d38ff5c4dede8d (patch) | |
| tree | 6586c00f25613a466425728451f9196abe53216b | |
| parent | 46c531b57631bc33d49fbf7ec90a10eaa69e69d5 (diff) | |
Don't crash when fewer than 5 articles are to be displayed.
| -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")) |