From e8ad5b3faa95039a42ec59978b252270aaeb7815 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Wed, 30 May 2007 23:31:37 +0200
Subject: Bugfix.

darcs-hash:36c7becf4a88663fa2558274bffcd72d68e31690
---
 journal.lisp | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'journal.lisp')

diff --git a/journal.lisp b/journal.lisp
index 9de97ae..f99aae4 100755
--- a/journal.lisp
+++ b/journal.lisp
@@ -341,7 +341,8 @@ after another in any arbitrary order."
         (emit-simple-tags :title "Kompottkins Weisheiten"
                           :updated (atom-time
                                     (max (reduce #'max *journal-entries*
-                                                 :key #'date-of)
+                                                 :key #'date-of
+                                                 :initial-value 0)
                                          (reduce #'(lambda (x y)
                                                      (cond ((and x y)
                                                             (max x y))
@@ -349,7 +350,8 @@ after another in any arbitrary order."
                                                            (y y)
                                                            (t 0)))
                                                  *journal-entries*
-                                                 :key #'last-modification-of)))
+                                                 :key #'last-modification-of
+                                                 :initial-value 0)))
                           :id "88ad4730-90bc-4cc1-9e1f-d4cdb9ce177c")
         (with-tag ("subtitle")
           (xml-as-is "Geschwafel eines libert&auml;rsozialistischen Geeks"))
-- 
cgit v1.2.3