Function: SAVE-ROOTS

Source

(defun save-roots (rucksack)
  (save-objects (list (slot-value rucksack 'roots)
                      (and (slot-boundp rucksack 'class-index-table)
                           (slot-value rucksack 'class-index-table))
                      (and (slot-boundp rucksack 'slot-index-tables)
                           (slot-value rucksack 'slot-index-tables))
                      (slot-value rucksack 'highest-transaction-id))
                (rucksack-roots-pathname rucksack))
  (setf (roots-changed-p rucksack) nil))