From 8f8182a67b5c846f9c09051ca5d38ff5c4dede8d Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Sat, 19 Mar 2011 23:15:28 +0100
Subject: Don't crash when fewer than 5 articles are to be displayed.

---
 mulkcms.lisp | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'mulkcms.lisp')

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"))
-- 
cgit v1.2.3