Commit 802fd25b authored by Stas Boukarev's avatar Stas Boukarev
Browse files

save-data: Put with-packages at the right place.

parent 8d832ed9
......@@ -110,7 +110,6 @@
(storage-data storage)))
(defun write-classes-info (stream)
(assign-ids)
(write-n-bytes (number-of-non-empty-classes *storage*)
+sequence-length+ stream)
(map-data (lambda (class objects)
......@@ -121,6 +120,7 @@
(defun dump-data (stream)
(write-classes-info stream)
(assign-ids)
(map-data (lambda (class objects)
(declare (ignore class))
(dolist (object objects)
......@@ -601,8 +601,8 @@
(defun save-data (storage &optional file)
(let ((*storage* storage))
(when (storage-data storage)
(with-io-file (stream (or file (storage-file storage))
:direction :output
:size (measure-size))
(with-packages
(with-packages
(with-io-file (stream (or file (storage-file storage))
:direction :output
:size (measure-size))
(dump-data stream))))))
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