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