(defmethod rucksack-commit ((rucksack standard-rucksack))
(when (or (roots-changed-p rucksack)
(not (slot-boundp rucksack 'class-index-table))
(not (slot-boundp rucksack 'slot-index-tables)))
(save-roots rucksack))
(cache-commit (rucksack-cache rucksack)))
Source Context