diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-10-02 10:34:28 +0200 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-10-02 10:34:28 +0200 |
| commit | 5cbb20a04c99113f485ac59124d2f1ffce3f59ee (patch) | |
| tree | e790af8de394f99133d14b7117828df515192e6d | |
| parent | b33482c0608751d19c40bb724cc7dfff16c2cb0d (diff) | |
Fix feed generation.
darcs-hash:85bccb1687a2d4e49ac064d01e43cca11acac1bf
| -rw-r--r-- | journal-content.lisp | 18 |
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)) |