summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2007-05-30 23:31:37 +0200
committerMatthias Benkard <code@mail.matthias.benkard.de>2007-05-30 23:31:37 +0200
commite8ad5b3faa95039a42ec59978b252270aaeb7815 (patch)
treed07bad711901598c476fc9ec41e3902e5072bc00
parentdb5200fe378b0e610284ecf2df27b9f15c13806d (diff)
Bugfix.
darcs-hash:36c7becf4a88663fa2558274bffcd72d68e31690
-rwxr-xr-xjournal.lisp6
1 files 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&auml;rsozialistischen Geeks"))