Source
(defmethod finish-all-output ((rucksack standard-rucksack))
(let ((cache (rucksack-cache rucksack)))
(finish-heap-output (heap cache))
(finish-heap-output (object-table (heap cache)))
;; NOTE: I'm not totally sure that saving the schema table for
;; each transaction commit is necessary, but it probably is. So
;; let's play safe for now. We definitely need to save the roots,
;; because the highest transaction-id is part of the roots file.
(save-roots rucksack)
(save-schema-table-if-necessary (schema-table cache))))
Source Context