Commit 0f2723fa authored by Stas Boukarev's avatar Stas Boukarev
Browse files

Add `modified' slot to `storage'.

parent e0d9f20d
......@@ -681,7 +681,8 @@
(*indexes* *indexes*))
(with-packages
(read-file (or file (storage-file *storage*))))
(interlink-all-objects-first-time)))
(interlink-all-objects-first-time)
(setf (modified storage) nil)))
(defun save-data (storage &optional file)
(let ((*storage* storage))
......@@ -689,4 +690,5 @@
(with-packages
(with-io-file (stream (or file (storage-file storage))
:direction :output)
(dump-data stream))))))
(dump-data stream)))
(setf (modified storage) nil))))
......@@ -6,7 +6,10 @@
(in-package #:storage)
(defclass storage ()
((data :initform nil
((modified :initarg :modified
:initform nil
:accessor modified)
(data :initform nil
:accessor storage-data)
(file :initform nil
:initarg :file
......
......@@ -30,5 +30,6 @@
#:count
#:slot-unit
#:storage-file
#:find-slot))
#:find-slot
#:modified))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment