summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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)))