summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2009-10-07 14:56:44 +0200
committerMatthias Benkard <code@mail.matthias.benkard.de>2009-10-07 14:56:44 +0200
commit4ead8b702c8fa6b174272de08ca2edb98b9a564b (patch)
tree42b86132fb6148126c17da6354a359d95ee45e37
parentc822c31fa68758dc46a02c5e82381456fab2b35d (diff)
Fix COMPUTE-JOURNAL-LAST-MODIFIED-DATE.
Ignore-this: 2f9fcd1deee1673a35bb3ab4936f0fdf darcs-hash:9cd1ac1fdff7b95a9ca59f5aebeb021bd50ebe74
-rw-r--r--journal-content.lisp39
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)))