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

Add `modified' slot to `storage'.

parent e0d9f20d
Loading
Loading
Loading
Loading
+4 −2
Original line number Diff line number Diff line
@@ -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))))
+4 −1
Original line number Diff line number Diff line
@@ -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
+2 −1
Original line number Diff line number Diff line
@@ -30,5 +30,6 @@
   #:count
   #:slot-unit
   #:storage-file
   #:find-slot))
   #:find-slot
   #:modified))