From e8ad5b3faa95039a42ec59978b252270aaeb7815 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Wed, 30 May 2007 23:31:37 +0200 Subject: Bugfix. darcs-hash:36c7becf4a88663fa2558274bffcd72d68e31690 --- journal.lisp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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ärsozialistischen Geeks")) -- cgit v1.2.3