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