diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2009-10-07 14:56:44 +0200 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2009-10-07 14:56:44 +0200 |
| commit | 4ead8b702c8fa6b174272de08ca2edb98b9a564b (patch) | |
| tree | 42b86132fb6148126c17da6354a359d95ee45e37 | |
| parent | c822c31fa68758dc46a02c5e82381456fab2b35d (diff) | |
Fix COMPUTE-JOURNAL-LAST-MODIFIED-DATE.
Ignore-this: 2f9fcd1deee1673a35bb3ab4936f0fdf
darcs-hash:9cd1ac1fdff7b95a9ca59f5aebeb021bd50ebe74
| -rw-r--r-- | journal-content.lisp | 39 |
1 files changed, 20 insertions, 19 deletions
diff --git a/journal-content.lisp b/journal-content.lisp index b0dd458..b0b9ce8 100644 --- a/journal-content.lisp +++ b/journal-content.lisp @@ -240,22 +240,23 @@ (defun compute-journal-last-modified-date () #.(locally-enable-sql-reader-syntax) - #-clisp (get-universal-time) - #+clisp - (max (compute-script-last-modified-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)) + (prog1 + #-clisp (get-universal-time) + #+clisp + (max (compute-script-last-modified-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))) |