summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2007-10-02 10:34:28 +0200
committerMatthias Benkard <code@mail.matthias.benkard.de>2007-10-02 10:34:28 +0200
commit5cbb20a04c99113f485ac59124d2f1ffce3f59ee (patch)
treee790af8de394f99133d14b7117828df515192e6d
parentb33482c0608751d19c40bb724cc7dfff16c2cb0d (diff)
Fix feed generation.
darcs-hash:85bccb1687a2d4e49ac064d01e43cca11acac1bf
-rw-r--r--journal-content.lisp18
1 files changed, 15 insertions, 3 deletions
diff --git a/journal-content.lisp b/journal-content.lisp
index 2991ec4..43947d6 100644
--- a/journal-content.lisp
+++ b/journal-content.lisp
@@ -219,7 +219,19 @@
#-clisp (get-universal-time)
#+clisp
(max (compute-script-last-modified-date)
- (select [max [slot-value 'journal-entry 'last-modification]])
- (select [max [slot-value 'journal-entry 'date]])
- (select [max [slot-value 'journal-comment 'date]]))
+ (or (single-object
+ (select [max [slot-value 'journal-entry 'last-modification]]
+ :from [journal-entry]
+ :flatp t))
+ 0)
+ (or (single-object
+ (select [max [slot-value 'journal-entry 'date]]
+ :from [journal-entry]
+ :flatp t))
+ 0)
+ (or (single-object
+ (select [max [slot-value 'journal-comment 'date]]
+ :from [journal-comment]
+ :flatp t))
+ 0))
#.(restore-sql-reader-syntax-state))