Use file-write-date instead of get-universal-time when loading the db.

stassats · Oct 1, 2013 · 6f1ccf6 · 6f1ccf6
1 parent f790c95
commit 6f1ccf6
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/disk.lisp b/disk.lisp
@@ -715,10 +715,12 @@
      (load-time storage)))
 
 (defun load-data (storage &optional file)
-  (let ((*storage* storage)
-        (time (get-universal-time)))
+  (let* ((*storage* storage)
+         (file (or file (storage-file *storage*)))
+         (time (or (file-write-date file)
+                   (get-universal-time))))
     (with-reading-packages
-      (read-file (or file (storage-file *storage*))))
+      (read-file file))
     (interlink-all-objects-first-time)
     (setf (modified storage) nil
           (load-time storage) time)